Joo 
aoa 
Jju4 
au4 
Joo 
aod4 
au4 
oau4 
Jju4 
saou4 
au4 
au 
aou4 
Jjouu4 
ays 


ee) 
ee eee 
ee ee 


**F ILE*®1D**NMLV2COMP 
NN NN MM MM LL VV WV $556ss cccccccc 000000 MM MM PPPPPPPP 
NN NN MM MM LL VV VV 2 ceccccce 000000 MM MM PPPPPPPP 
NN NN MMMM MMMM LL VV VV 2 cc 00 MMMM MMMM PP PP 
NN NN MMMM MMMM LL VV VV e &t 00 00 MMMM PP PP 
NNNN NN MM MM MM LL VV VV § cc 00 00 MM MM MM PP PP 
NNNN NN MM MM MM LL VV VV cc 00 00 MM PP PP 
NN NN NN MM MM LL VV VV 22 cc 00 00 PPPPPPPP 
NN NN NN MM MM LL VV VV 22 cc 00 00 MM MM PPPPPPPP 
NN NNNN MM MM LL VV VV § cc 00 00 MM MM PP 
NN NNNN MM MM LL VV vv 2 cc 00 00 MM MM PP 
NN NN MM MM LL ve VV 22 cc 00 00 MM MM PP ecee 
NN NN MM MM LL vv VV $$ cc 00 00 MM MM PP sees 
NN NN MM MM LLLLLLLLLL VV 2222222222 ccccccce 000000 MM MM PP cece 
NN NN MM MM LLLLLLLLLL VV e222eeeeed ceccccce 000000 MM MM PP cece 
LL III] SSSSSSSS 
LL IIT] SSSSSSSS 
LL I] SS 
LL I] SS 
LL II SS 
LL il SS 
LL II SSSSSS 
LL II SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL IIIII SSSSSSSS 
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3 1 0001 ZTITLE ol 85828 NICE v2.0 requests. : 
H § b008 MODULE NMLS$V2COMP (IDENT = 'V04-000' : 
: 0 ADDRESSING_MODE (NONEXTERNAL=GENERAL), ; 
3 4 0004 ADDRESSING_MODE (EXTERNAL=GENERAL)) = 3 
: ? 2006 : BEGIN ; 
: 4 0097 } PITIIIIIILILI LILLIE LLL LLL LLL LLL LLL LLL LLL iliiiiiiiitiill : 
; '® * 3 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® $ 
> «10 0010 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ‘ ; 
3 \) oot) :* ALL RIGHTS RESERVED. * : 
: . * ° 
; ig $18 1 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
H 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
3 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 5 
H 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
$ 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
3 18 Role ! R TRANSFERRED. * 3 
; ! * 3 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ‘ : 
: 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; 3 O0g2 1 is CORPORATION. , ; 
3; (gk 0024 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * é 
; 0026 1 !* 7 : 
.) a 0027 1 !* * : 
3 28 QO28 1 eee eee eee RE EERE EAE AREER EAE AERA REE EARERERE EERE REE 3 
; ww 4594 1! ; 
; 0030 1 3 
oP ae 0031 1 !++ 3 
: 3 0036 ! FACILITY: DECnet-VAX V2.0 Network Management Listener ; 
; 0034 1! ABSTRACT: ; 
3 HH 0035 1! 3 
3 6 0036 1! This module contains the entry points for the 3 
3 3 Boat : } the portions of NML dealing with NICE V2 messages. ; 
: 59 0059 1 | ENVIRONMENT: VAX/VMS Operating System : 
; 41 0041 1 ! AUTHOR: Tim Halvorsen & Kathy Perko, October 1981 ; 
s 62 94 4 3 3 
$ 43 004 1 ! MODIFIED BY: ; 
; 44 Boe 1! : 
; «645 045 1! v03-004 MKP0008 Kathy Perko 2-Jan-1984 ; : 
; 46 0046 1! Get rid of definition for NMLSK_ENTBUFLEN since it's in 3 
3 rtf Bpee ! NMLLIB now. 

> (49 049 1! v03-003 MKP0007 Kathy Perko = 29=June-1982 

; 9 0050 1! Redo SHOW LINKS to use qualifier logic for WITH NODE commands. 

3 2) ie : } Rename some EIT fields. 

; 3g 633 1 v03-002 MKP0006 Kathy Perko 28-April-1982 

; 2 054 1! Delete start key and add second search key to NETACP 

: 2? B22 ! } Q10 interface. 

ae 0087 1 v03-001 MKP0005 Kathy Perko 17-Mar-1982 


yeh Aatemenetonsy Bava betas. iets ep-1984 12:50:62 — ENML-SREINALVaCOMP 83077 ecg 


Fix V2-v3 ow be NE so that it handles my a, by * a. 18 6 
etc. 


dd zero counters to "ve SrATUs to return ' Also, fix 
SHOW LINE SUMMARY and STATUS to return ‘‘on-starting’’ 
instead of ‘'synchronizing’’ for state. 


; 1! 

: : 4B. ts. t returns info for DMP- 

: 1 i V02=004 MKP0004 yBerko 1-Mar-1982 
: ! } Fix ZERO NODE ioe ; V2 nod 

; 1 i V02=003 MKP0003 ey Perko 31-Jan-1982 
3 1} Fix NICE message so the Line parameter, Receive Buffers 
: ! : returned as a word. 

: 13 v02=002 MKP0002 Perko 4=Jan-1982 
: : } Add SHOW LINKS to “iD compatibilit y- 

: 1! v02=001 MKP0001 Kathy Perko 29-Nov-1981 
; i 4 

; 1! 

; 1! 

; 3 
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7 
NML.SRCINMLV2COMP.B32; 
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77 0077 
78 Bf8 ZSBTTL ‘Declarations’ 
79 07 
80 080 : 
&: ORs TABLE OF CONTENTS: 
0 
84 084 FORWARD ROUTINE 
85 085 nm\$v2_compatibility, ' Process any V2 NICE messages 
86 ty nmi$ve_show_line: | NOVALUE, ' Dispatch a V2 SHOW LINE request 
87 08 nml_vé_dispatch: NOVALUE, ! Dispatch to show or set routine 
8 088 nml_vég_showknown: NOVALUE, ! Show known Lines 
9 089 nml_vé_showactive: NOVALUE, ' Show active Lines 
90 0090 nml_v2_showline: NOVALUE, ! Show a single Line 
91 0091 nml\$sho_v2line_substa ' Put Line substate into NICE message. 
9 009 nml$v2_show_Links: NOVALUE, ! Dispatch to show known Links. 
9 009 nml_v2_show_links: NOVALUE, ! Show known Links Cwith node <id>J 
94 0094 nmlSsholinks ! Format Links for respenee message. 
95 0095 nml$v2_chg_line: | NOVALUE, i Dispatch a V2 SET LINE request 
96 0096 nml$chk_ve_circ, ' Check NICE command for circuit params. 
97 009 nml$chk_vée_line, ! Check NICE command for Line params. 
98 0098 nm $chk_vée_sta, ' Check NICE command state parameter. 
99 0099 nml_v2_chg_Lline: NOVALUE, ' Process V2 SET LINE request. 
0100 nml_ve_chg_entity, ! Update volatile entity 
nml_vé_chg_known: NOVALUE; ! Update known volatile Lines. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
: : INCLUDE FILES: 

1 

! LIBRARY ‘LIBS:NMLLIB'; 

: LIBRARY ‘SHRLIBS:NMALIBRY'; 

: LIBRARY "SYSS$LIBRARY:STARLET'; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


LIBRARY ‘SHRLIBS$:NET'; 


EXTERNAL REFERENCES: 


Facility-wide definitions 
NICE definitions 

VMS common definitions 
NETACP NFB definitions 


EXTERNAL 
nml$gb_ncp_version: BYT 


E NCP NICE version number 
nml$ab-npa_blk: SNPA_BLKDEF, 


NPARSE context block 
NPARSE table for V2 SET LINE 
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' 
i 
nml$npa_setv2line, i 
’ commands. 
nml$npa_clearv2line; ! NPARSE table for V2 CLEAR LINE 
: commands. 
SNML_EXTDEF; ' 


P 
nml$gb_options: BBLOCK; 


EXTERNAL ROUTINE 
nml$bld_reply, 


Be Se Be Se Se Oe Se Se Se Be Se Be Be Se Se Se Se Se Se Ge Fe Ge SH Ge BH Ge BH Se Ge Be Ss Ss Se Ge Se Ge Se Se Se Se Se Se Se Se Oe Se Se Se Se SSeS Se Se Se Beas 


ee ed ed ce ed ee ee ce ce a a ec a a ae ce a a ee ed ed ed ed 
USYSSSVUSRRUSVSSaNenrun—oCowmnenruwes 


awaits wtatiattataiatiaatatiabatatabadadad dadbad abadadadadbadadad 


WWIII RPUNININININININ 3 4 @ —@ M@QOODOODOOOCOO 
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Define common external data 
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NMLSV2COMP ocess NICE V2.0 requests 18-56 =1984 00:39:4 AX-11 Bliss-32 V4.0+-74 
vee ty clarations : 1 =300 71382 99:3335 ENML.SRC NMLV2COMP.B32; 
nm $send 

nml$mainhandler, 

nml$error_i, 

nmi $error_2 

nml$get_entity_ids, 

nml$showentity, 

nm l$shoparam, 

nal$shonodeid, 

nm l$shoexeparam, 


bldp 

nat $getinf tabs, 

Ldshowbufs, 
nm l$getdata, 
nml$processdata, 
eal zedenegera. 
Lib$Sestablish, 
Lib$Srevert, 
nma$nparse, 
nml$setknown, 
nml$setentity, 
nml$saveparam, 
nm l$getexeadr, 
nml$getidstring, 
nml$showpar list, 
nm l$bldsetabf, 
nml$netqio; 


EXTERNAL LITERAL 
cpt$gk_pcci_sta, 
cpt$gk_pcli_sta; 


wn 
OOOOOOCoOOoOoO VV 


i The NICE parameter for receive buffers (NMASC_PCLI_BFN) got changed 
! ices 2700 in V2 to 1105 in v3. Because of this, declare a V2 parameter 
ere. 


' 

' 

' 

' 

' 

GLOBAL LITERAL 
nma$c_pcli_bf$ = 2700; 
' 

; Own storage 


meet cents * ! Current entity (line or circuit) 


WN 9 OONAUES WN $9 ODNAUE WN OC OONAUESWN "ODO ONOULS WR —OOO 


8 NITIAL (nml$c_Line), 

9 nml$l_state, ! New state for a Line 

? ! and circuit. 

: Duffers and descriptors. 

4 NMLST_NFBBUFFER : VECTOR (100, BYTE), ! NFB Q10 buffer 

5 NMLST"P2BUFFER : VECTOR CNML$K_P2BUFLEN, BYTE. ' P2 Q10 buffer 
NMLST_ENTBUFFER =: VECTOR CNMLSK_ENTBUFLEN, BYTEJ; ! Entity buffer 


BIND 
NMLSQ_NFBBFDSC = UPL 


Coon 


OCATION(NMLST_NFBBUFFER), NMLST_NFBBUFFER) 


a ee ce ee ee ee ee ee ae ee ee ee ee ee el ee ee ee meh ee ce ee ce ce ee ce ae ee ee ee ce ce ce cee ee ee ce ee cee ee ee ed ed ed 


w 
eee ee ed cee a en eed ee eed cd en ee ec ee a a a ee ee ce ee ee ed ee a ee ee ee ee ed ee ee ee ed ee ee ee ee ee ee ee eee ee ee 
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Be Pe Se Se Oe Se Se Se Se Se Se Se Ge Fe Be Ge Se Se Ge Ge Fe Fe Se Ge FH TESS Fs Be Se Se Ge Ge Ge Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Sse se Se Sees ees 


oes ice v2.0 requests 16- Se-1984 9: g33 AX-11 Oh i eeuse V4.0-74 


woowowono 


NOs 


-Sep-1 NML.SRCINMLV2COMP.B32; 
NML$Q_P2BFDSC == UPLIT (ZALLOCATION(NMLST_P2BUFFER), NMLST_P2BUFFER) 
own : DESCRIPTOR; 
NMLSQ_ENTBFDSC : DESCRIPTOR 
INITIAL (0, NMLST_ENTBUFFER); 


The data which ,vees Bhe wie Meh macros would normally be put into 
AT, but, s ke Teveasi Ss module will eventua sy, be thrown away, they 


are here to ‘make it eas! to throw it out. e macros are patterned 
n 


after the ones 


BBo wee ec ac ase 
> 


SELESFENLSSS 


Se Se Se Se Se Ge Ge Se Se Oe Ge Se Se Se Se Se Se Sees Se Se Se Sees Se Se Seeses 
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1 
1 
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1 
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COONOUS WO 


CRO 
PRMLLIST (TAB, TYP) CJ = 


ZNAME ('NML$Q_', TAB, Typ, ' TABDSC') = 
UPLIT ((ZCENGTH = 
UPLIT BYTE USDEXTN (ZREMAINING))); 


s, 
SDEXTN CA (] = 
WORD Canine ("PST$K_", A, '_", BD), 
LONG (C) 
EXT_LIST CTYP, ID, RTN) = 
EXTERNAL LITERAL 
UNAME ('PSTSK_", TYP, '_', ID); 


Process NICE 
WMLSV2_COMPAT 


WN" OOONOUS wr 
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IBILITY Process V2.0 NICE messages 12-80 8- 186 90:33 '5 ENML.SRE NMLV2COMP.B32;1 
ZSBTTL "NMLS$V2_COMPATIBILITY Process V2.0 NICE messages’ 
GLOBAL ROUTINE NML$V2_COMPATIBILITY = 


1 oe 
i 

This routine is called to look at an incoming NICE message 
and if the message is coming from an NCP speaking V2.0 NICE, 
then $he message will be appropriately parsed and mapped to 


' 

i 

the V network management parameters. 

Inputs: 

i nml\$ab_rcvbuffer = Buffer containing NICE message 
} nml$gl_rcvdatlen = Length of NICE message 
Outputs: 

i 

i 


Routine = True if message handled here, else false. 


BEGIN 
BUILTIN FP; 


-fp = nml$mainhandler; ! Indicate that all signals sh 


ou 
! return to this level (with RO= 


ld 
0) 


' 
! If the NCP on the other side of the Link is not speaking V2.0, then 
exit immediately and let the rest of NML handle it. 


IF _.nml$gb_ncp_version NEQ 2 ! If NCP not v2.0, 
RETURN false; ! Have caller handle message 
tae -nml$gb_ function ! Dispatch on function code 
SET 


For SHOW LINE, Copend oy on the information type requested, we must 
either convert the entity to a circuit, or issue Q10s to both the 
Line and circuit database to collect the information and then collate 
the parameters back into a single response message. 


Cnma$c_ fnc_real: 


BEGIN 
IF NOT .nml$gl_prs_flgs Crml$v_prs_vms] THEN 
See ht Om omt ity nate EQL nma$c_ent_lin ! If SHOW LINE 


nml$v2_show_lLine(); ! then call processing routine 
RETURN true; ! and indicate nothing left to do 


DIDI SE BB AAI IPPIPOPIPINIPOPYIPIPIPIPINIPINIPUPIPINIPININPIPONINPIDINYDY) — 3 2 = St 
~ 


i 
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NMLSV2COMP Process NICE V2.0 requests 18 
rival ts 3 COM ILIT » -Sep-19 NML.SRCINMLV2COMP.B32; 1 (3) 


NMLSV PATIB Y Process V2.0 NICE messages 1 


; 278 77 4 END; H 
; 279 78 4 END ; 
; e} 4 ? ELSE : 
: 38¢ 1 4 IF «nmi $gb_entity code EOL nma$c_sent_tnk THEN ! If SHOW LINKS 
; 284 : nml\$v2_show_Links (); ! then call processing routine : 
; 985 : ? A a true; ! and indicate nothing left to do. ‘ 
; e : END wr: 
BBB E : 
; 291 0290 ! For SET LINE, we do not allow mixed parameters in the same message. That : 
; 29 0291 ! is, we do not allow V2 poreneters which map to both V3 Lines and circuits : 
; a 0 4 ! in the same request. This avoids having to issue Q10s to both databases ; 
3 294 029 ! in some cases, and allows us to simply change the entity and use the normal ° 
; 32 8 Be : SET processing. : 
: 297 0296 2 : 
: 4 $944 Cnma$c_fnce_chal: : 
; $9 i444 IF NOT .nml$gl_prs_flgs Cnml$v_prs_vms] AND : 
; $53 Beno (.nml$gb_entity_code EQL nma$c_ent_Lin) ! If SET LINE : 
: OS 030¢ N ; 
; 304 030 nml$v2_chg_Line(); ! then call processing routine F 
3 $02 Bape — true; ! and indicate nothing left to do ; 
: 307 0306 : : 
; 308 0307 ! 3 
: 309 0308 ! For ZERO LINE counters, change the entity ID from LINE to CIRCUIT (V2 LINE : 
; 310 0309 i counters are now V3 CIRCUIT counters), and then return to the normal : 
: $1) Baie path to perform the zero. : 
; 318 0312 '  Enma$c_fne_zer): F 
3; 314 0313 2 IF” .nmU$gb_entity_code EQL nma$c_ent_lin THEN 3 
; 12 bate nml$gb_entity_code = nma$c_ent_cir; : 
: 317 0316 2! ; 
5 ie 0317 ! For LOAD/DUMP/TRIGGER/LOOP, NPARSE initialization has not yet processed ; 
; 319 0318 ! the got tty ID = only the option byte. So, if LINE is indicated by the. ; 
: 320 0319 ' Low bit of the option byte, then change the entity type field (low 3 bits) 3 
; $3 ; 0 ! to CIRCUIT. Else, NODE is indicated, so leave the entity type field zero. : 
: 38 3 : Either way, return to the normal path to actually perform the operation. ‘ 
: 324 0 : 
; 325 324 Cnma$c_fnc_loa, ! For LOAD/DUMP/TRIGGER/LOOP : 
3 $$ ; 5 nma$c_fnc_dum, F 
. a § nma$c_fnc_tri 3 
; 38 3 nma$c_fnc_tes): ; 
; % 335 BEGIN ’ ; 
: 3! ; 9 Lag Oe cot tens <0,1> ! If low bit (Line/node) set, . 
; 3§ ; § nml$gb_options (nma$v_opt_ent] = nma$c_ent_cir ! Mark CIRCUIT : 
; 534 ELSE 3 


CHSWETAR 
END; 


RETURN false; 
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$gb_options Cnma$v_opt g 


nt] = nma$c_ent_nod; 
-nml$gb_options, .nmT 


ab_npa_blk Enpa$l_f 
! Indicate that ca 


-TITLE 
- IDENT 


«PSECT 


"ADDRESS 
.PSECT 
00000 NML$L_V2_ENTITY: 
00004 NMLSL_STATE 


00000000 


-LONG 1 
- ADDRESS 


AX-11 Bliss-32 V4.0 
NML.SRCINMLV2COMP. g354 


{se mark NODE 


Page 
7 € 
ldptr 


Ller must handle it 


NMLS$V2COMP Process NICE V2.0 requests 
Nb e B00% Fi 
SPLITS,NOWRT ,NOEXE,2 


00 
NMLS$T_NFBBUFFER 
NML$T_P2BUFFER 
SOWNS ,NOEXE ,2 


2 4 
00008 NML$T_NFBBUFFER: 


0006C NML$T_P2BUFFER: 
000D4 NML$T_ENTBUFFER: 
00114 NML$Q “enter oec: 
00118 “ADDRESS 


00000000 
00000000' 
NMASC_P 


NML$Q"N 
NML$Q—P 


L 


C 
pearpsc 


eoeeeereeee 
MmMMMmMmMmMmMnMmmMmncn 
pm te a eee nee en te 


100 
104 


NML$T_ENTBUFFER 
g700 
p. “AAS 
NML$GB_NCP_VERSION 


NPA"BLK 


LSAB-N NAL SNPA_ SETV2LINE 
NAL SNPK CLEARY eu 


NML$GQ_ENTSTRDSC 
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TRN NMLS$GET_ERTITY 
EXTRN NMLS$SHO OUENTITYS NMLSSHOPARAM 
-EXTRN NMLSSHONODEID, NMLSSHOEXEPARAM 
-EXTRN NMLSBLDP2, NMLSGETINF TABS 
SBLDSHOWBUF S 


NML$BLDSHOWBU 
*EXTRN NMLSGETDATA NMLSPROCESSDATA 
[EXTRN NMLSADDMSGPRM, LIBSESTABLISH 
“EXTRN LIBS$R EVERT. NMASNPARSE 
“EXTRN NMLSSETKNOWN, NMLSSETENTITY 
-EXTRN NMLSSAVEPARAM, NMLSGETEXEADR 
“EXTRN NMLSGETIDSTRING 

-EXTRN NMLSSHOWPARLIST 

-EXTRN NMLSBLDSETOBF, NMLSNETQIO 
-EXTRN CPT$GK_PCC!_STA 

SEXTRN CPTSGK~PCLI-STA 


-PSECT SCODES,NOWRT,2 
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06.085 NMLSVS.C COMPA ATS veic ot Y Process V2.0 NICE messages 14- ~3ep-19 4 99: 355 ENML. SREINMICV cOMP. B32: . (3) ve 
“EXTRN NALSGOCRCVBFOSE™ 
-EXTRN NMLSAB_SNDBUFFER 
-EXTRN NML$GQ-SNDBFDSC 
EXTRN NMLSGL_RCVDATLEN 
~EXTRN NMLSAB_CPTABLE, NMLS$AB_MSGBLOCK 
-EXTRN NMLSAB-ENTITY_[D 
-EXTRN NML$AB_QUALIFTER_ID 
-EXTRN NMLSAB_ENTITYDATA 
-EXTRN NMLSAB_NML_NMV, NMLS$AB_PRMSEM 
-EXTRN NMLSAB_RECBUF, NML SAL BENT INET AB 
SEXTRN NML AL -PERMINETAB 
-EXTRN NMLSAW_PRM_DES, NML$GB_CMD_VER 
-EXTRN NMLSGB-ENTITY_CODE 
-EXTRN NMLSGB_ENTITY-FORMAT 
«EXTRN LSGL_QUALIFTER_PST 
-EXTRN NMLS$GB_QUALIFIER-FORMAT 
-EXTRN NMLS$GB_FUNCTION 
-EXTRN NMLS$GB_INFO, NML$GB_OPTIONS 
“EXTRN NMLSGL =PRMCODE NMLSGL_PRS_FLGS 
-EXTRN NMLSGL-NML_E NET TY 
~EXTRN NAL SGO-NETRAMDSC 
-EXTRN NML$GQ_RECBFDSC 
-EXTRN NMLSGW_PRMDESCNT 
-EXTRN NMLSBLB_REPLY, NMLSSEND 
~EXTRN NAL SRAIRHAN R 
-EXTRN NMLSERROR My NMLSERROR_2 
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001¢ 00000 .ENTRY NMLS$V2_ COMPATIBILITY, Save R2,R3,R4 : 0221 
54 90000 006 00 9E 00002 MOVAB NMLSGL“PRS FLGS, R4 F 
53 000000006 00 9€ 00009 MOVAB NAL SEB TT0 : 
52 000000006 0 9E 9019 VAB  NMLSGB-ENTITY CODE, R2 F 
6D 99000006 3 01 MOVAS NMLSMAINHANDLER, (FP) ; 0244 
02 000000006 : 9 O01§ CHP NML$GB_NCP_VERSION, 2 ; 0252 
50 000000006 9A 00027 MOVZBL NALSGB FUNCTION, RO : 0256 
. 2 a ie ew 
51 9A 3 MOVZBL NMLS$GB_ENTITY_CODE, R1 > 027 
OE 64 £8 BLBS  NMLSGL-PRS FLGS, 1$ : 9578 


M14 
$v2COmMP Process NICE V2.0 requests 16-Sep-1984 00:39:4 AX-11 Bliss-32 V4.0-74 Page 1 
VOL. 000 NMLS$V SCOMPATIBILITY Process v2.0 NICE messages 132808- 1386 99:35:33 ENML SRC Nae v3COMP 636, 
01 1 D1 9 CMPL Ri, #1 : 
Py. ae C BNEQ es : 
00000000v 00 2 fo ‘3 gaits $e" NML$V2_SHOW_LINE : 
07 94 47 1$ CMPBséRk1, #7 : 
i. 2 GA BNEQ , g 
00000000v 00 00 FB 4 CALLS #0, NML$V2_SHOW_LINKS : 
14 4 b2 BRB 3$ é 
13 9 1 055 2$ *MPB RO, #19 3 
1 ig 0058 BNEQ 4$ : 
40 64 § OOSA BLBS NMLS$GL_PRS_FLGS, 8$ 3 
01 te 91 30 CMPB  NMLSGB-ENTITY_CODE, #1 : 
00000000v 99 00 FB $3 CALLS #0, NML$V2_CHG_LINE : 
0 1 =O 69 3$ MOVL #1, RO 3 
33 006C RET é 
15 x 1 O88 4$ CMPB RO, #21 $ 
A 12 000 BNEQ $ 
01 62 91 0007 CMPB = NMLSGB_ENTITY_CODE, #1 : 
68 12 0007 BNEQ $ 
62 90 0007 MOVB #3, NMLSGB_ENTITY_CODE é 
4 11 Boone Bra 3 
OF 0 91 Q0007C 5$: CMPB RO, #15 F 
1C 1F OOO7F BLSSU 3 
12 50 91 aed CMPB RO, #18 3 
17 1A 00084 BGTRU é 
07 63 E9 00086 BLBC NMLS$GB_OPTIONS, 6$ é 
63 03 00 03 FO 00089 INSV #3, #0, #3, NML$GB_OPTIONS 3 
03 11 QOO8E BRB 7$ F 
63 07 8A 00090 6$: BICB2 #7, NMLS$GB_OPTIONS 3 
50 000000006 00 DO 00093 7$: MOV NML$AB_NPA_BLK+20, R80 § 
60 6 90 O009A MOVB NML$GB_OPTIONS, (RO) 3 
50 D4 0009D 8$: CLRL RO : 
04 0009F RET 3 


; Routine Size: 160 bytes, Routine Base: S$CODE$ + 0000 


Be Se Se Ge Se Oe Se Se Se Fee. Fe Se ee Se Se Fe Se te Se Se Se Se Se Fe Se ee See Se Se See Se See eae ee Se Beas 


Be Se Se Ge Fe Se Ge Fe Ge Ge Be Se Ge Se Fe Se Ge Ge Ge Se Ge Fe Fe Ge FFs Ge Ge Ge Se Ge Fe Se FHSS Se HSH Se HSH Ss Se Se Ses OH Oe Se Se Oe Oe Se Se esas ee 


mg 


45 


PEMA YISIVIVIVIVI LE ££ 
—"OVOVOWNOUVES WN "ODO 


379 


coco 
Arun —o 


PAA AAA AAA AANA 
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gess NICE ¥2.0 faqvests 16-Sep-1984 99:33:41 AX-11 Bh isen 


SHOW_LINE V 0:22 NML.SRC 


ZSBITL "NMLSV2_SHOW_LINE V2 compatibility read Line routine’ 
ROUTINE NMLS$V2_SHOW_LINE : NOVALUE = 


'e¢ 


i FUNCTIONAL DESCRIPTION: 
FORMAL PARAMETERS: 
IMPLICIT INPUTS: 
NML$GB_INFO contains the information type. 


compatibility read Line ro 14-Sep-19 


is 


LOCAL 
INDEX; ! Index into List descriptor table 


P 
NML$GB_ENTITY_FORMAT : BYTE SIGNED; 

i] 

Information can be read only from volatile data bases. 

if NOT -NMLSGB_OPTIONS CNMASV_OPT_PER] ! If volatile database requested, 
BEGIN 
; Read volatile data base 


INDEX = 
(SELECTONEU .NML$GB_INFO 


SET 

NMASC_OPINF_SUM]: NMLSC_SUMMARY; 
NMASC_OPINF STA]: NMLSC_STATUS; 

ap oo A it NML$C~CHARACTERISTICS; 
NMASC_OPINF_COUJ: NMLSC_COUNTERS; 
COTNEROISE: -1; ! Option error 


IF _ .INDEX NEQU -1 
THEN 


BEGIN 


i Dispatch to the appropriate SHOW routine. Note that V2 Lines 
: are considered circuits by V5. 


SELECTONEU -NML$GB_ENTITY_FORMAT OF 


CNMASC_ENT_ACT): ' Active 
NMC_V2"DISPATCH (NMLSC_CIRCUIT 
NML_V2_SHOWACTIVE, ! Routine 
nm EX, ' Info code 


FRPP RLEE EEE EE PWM ESR ES £-\WWIWIWIWIRIPININPINIPINIPINIPUNINIDD 2 2 Se 


NMLV 


SHOW_LINE compatibility read Line ro 1 NML.SRCINMLV2COMP.B32;1 


; 40 4 9 4 

; 40 4 4 CNMASC_ENT_KNO): 

.-@ 4 § 4 NMC_V2_D ISPATCH yee: circurt 

: 4 5 403 4 NAL L V2. SHOWKNOWN , ; Routine 

3 6 ! Info code 

: rh begs 4 6, 0); ; 

: 088 bc? 2 {1 TO 16): 14 

3 ne name 

; 410 0408 4 NML v2. DISPATCH =a CiRcuIT, 

3 411 409 4 v2 , alae ! Routine 

3 tig 0410 4 MENDES ! Info code 

; 41 411 4 “NAL SGB ENTITY FORMAT, ! Id string Length 
3: 414 tig 4 NMLSAB_ENTITY_TD); ! Id string address 
: «415 4135 4 

; 416 0414 4 TES; 

:; 417 0415 4 

: 418 8718 4 NMLSERROR_2 Manet STS_IDE, ! Identification error 
3: 419 0417 4 NMASC_ENT_LINJ; 

; 420 0418 3 3 

3 rt} 0419 END; 

s 4 ; pes 

; $$7 Be 1 NMLSERROR_1 (NMASC_STS_FUN); ! Send option error message 

: 425 8258 1 END; ! End of NMLSREAD 


000C 00000 NML$v2_ ae ie 


Save R2,R3 
000000006 00 95 00002 TSTB NAL SGB- OPTIONS 
03 18 00008 BGEQ 13 
0090 31 QOO0A BRwW 11$ 
50 000000006 00 9A 0000D 1$: MOVZBL NMLS$GB_INFO, RO 
04 12 00014 BNEQ  2$ 
53 D4 00016 CLRL _—«rINDEX 
e1 11 00018 BRB 6$ 
01 0 91 OO01A 2$ CMPB ss RO, #1 
05 if; 0001D BNEQ 3$ 
53 01 00 O001F MOVL #1, INDEX 
17 11 00022 BRB 6$ 
02 50 91 00024 3$ CMPB RO, #2 
5 if} 00 7 BNEQ 4 
53 2 »D 9 MOVL #2, INDEX 
D 11 0002C BRB 6$ 
03 0 91 0 F 4$ CMPB Ss RO, #3 
if BNEQ 5$ 
53 DO 00033 MOVL i. INDEX 
11 BRB 6 
53 1 Cr 8 5$: MNEGL #1, INDEX 
FFFFFFFF © 8F 3D 6 6$: CMPL  —sINDEX, #- 
9 13 4 BEQL 11$ 
ie 000000006 99 3 4 CVTBL NMLS$GB_ENTITY_FORMAT, R2 
FE oBF 1 00048 CMPB Re. #-2 
g¢ 12 0004F BNEQ 7 
E 7¢€ 00051 CLRQ. = = (SP) 


wy, SE COMP nncgyas NICE Yes 0 feqvests 18-Fe0-1984 90: 33 AX~11 Ol i esuse V4.0-742 Page 


why SYSCOnP 


Process NICE V2.0 requests 
NMLSVS,SHOW.LINE VS" 


00000000Vv ; OF 
i 
~~ fF 2 9 
C 4 
C 
5 pp 
00000000Vv y rt 
52 rf 
i J 
10 52 91 
19 «#4A 
00000000G 00 9F 
26 dD 
535 0D 
00000000v 4! oF 
9 DD 
00000000v 00 05 FB 
01 OD 
7E 09 CE 
000000006 00 b¢ 4 
000009006 00 01 fe 


; Routine Size: 168 bytes, Routine Base: $CODE$ + O0A0 


compatibility read Line ro : 


: 


1$-$ep-1964 00:59:4)  YaK~11 Ot ies-32 y4.0-74 


PUSHL_ _ INDEX 

PUSHAB NML V2. SHOWACTIVE 
CMPB OR, #1 

BNEQ «8 

CLRQ = = (SP) 

PUSHL_ INDEX 

PUSHAB NML_V2_SHOWKNOWN 
BRB 9$ 

TSTL 

BEQL =-:10 

CMPB eR, #16 

BGTRU 

PUSHAB NMLSAB_ENTITY_ID 
PUSHL R2 

PUSHL_ INDEX 

PUSHAB NML_V2_SHOWLINE 
PUSHL #9 

CALLS #5, NML_V2_DISPATCH 
PUSHL #1 

MNEGL #9, (SP) 

CALLS #2, NMLSERROR_2 
MNEGL #1, - 


CALLS #1, NMLSERROR_1 
RET 


NMI 
vO 


D 15 
NMLSV2COMP Process NICE V2.0 requests 16-Sep-1984 00:39:41 AX-11 Bliss-32 V4.0-742 Page 14 

- NML V3. DISPATCH Dispatch to V2 show or set rou 12-80-1282 99:35:39 NAL -SREINALV COMP.B32;1 . (5) 
| 

427 424 1 XSBTTL am NG BI SeA TEN Dispatch to V2 show or sgt poutine” 

? 8 " 5 ! OUTINE NML_V2_DISPATCH (ENT, RIN, INF, PRM1, PRM2, PRM3) : NOVALUE = 

430 4 § 1 44 

4 1 , : i FUNCTIONAL DESCRIPTION: | 

4 § 430 1! This routine is called when erecese te a show or set command 

434 431 1! from a V2 system. It dispatches to the appropriate V2 show or 

435 4 § 1! set routine. 

436 4 7 7 

437 434 1 ! FORMAL PARAMETERS: 

438 435 1! 

439 436 1! ENT Entity type code. 

440 ok 1! RTN Address of entity routine to be called. 

44) 438 1! INF Information identity code (index). 

44 0439 1! PRM1 Routine parameter value. 

44 0440 1! PRM Routine parameter value. 

444 0441 1! PRM Routine parameter value. 

445 Bees 1! 

446 04435 1 !-- 

447 0444 1 

448 0445 $ BEGIN 

449 0446 

450 0447 LOCAL 

451 poee MSG_SIZE; 

$26 044 

45 0450 ! 

$28 bees Send success with multiple responses message. 

456 pag NMLSBLD_REPLY (UPLIT(O, NMASC_STS_MOR), MSG_SIZE); 

437 0454 NML$SEND (NMLSAB_SNDBUFFER, .MSG_SIZE): 

hts b728 } Enable condition handler to allow done message to be sent. 

461 828 LIBSESTABLISH (NMLSMAINHANDLER); 

$86 459 ! 

46 Bred ' Call entity-specific routine. 

464 461 ! 

465 b79¢ (.RTN) (.ENT, .INF, .PRM1, .PRM2, .PRM3); 

466 046 ! 

467 0464 ! Signal done message. 

468 465 ! : 

469 196 LIBSREVERT (); ' Disable condition handler 

th heh NMLSERROR_1 (NMASC_STS_DON); ! Signal no more responses 

472 0469 1 END; ! End of NML_V2_DISPATCH 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
00000002 00000000 00010 P.AAC: .LONG 0, 2 ; 


-PSECT SCODES,.NOWRT,2 


mee 


; Routine Size: 


Nae s NICE 


DISPATCH Dispatch to V2 show or set 


82 bytes, 


E v2.0 request 


000000006 


000000006 
000000006 


08 
000000006 
000000006 


Routine Base: 


5E 


So 
oO 


onowW NNO SO 
oOmon mmna oO 


00000000' 


000000006 
000000006 


o¢ 
04 


80 


vou TESePcT3R6 99:38: 


0000 00000 NML_v2 aah Natt 


WOR 
4 8 g SUBL2 
bb PUSHL 
007 PUSHAB 
FB 00000 CALLS 
f D 14 PUSHL 
44 16 PUSHAB 
‘ § 1 CALLS 
oF 0 PUSHAB 
1 FB 00 a 
AC 7D 88 0 OV 
AC 7D 4 Ova 
ag DD 00038 PUSHL 
05 FB 00038 CALLS 
90 fe Bare CALLS 
8F 98 00046 CVTBL 
01 FB OO04A CALLS 
04 00051 ET 


SCODES + 0148 


741 Ax-11 Bi iss 


-32 V4.0-74 
722 NML.SRC ; 


NMLV2COMP.B32;1 


Save nothing 
#4, SP 


P.AAC 
#2, NMLSBLD_REPLY 
NMLSAB_SNDBUFFER 


#2, ND 

NL SMATNHANDLER 
1, LIBSESTABLISH 

Pri =(SP) 


» = (SP) 


#5, @ 
#0 tTesneveRt 
#-128, -(SP) 
#1, NMLSERROR_1 


BeBe Ge Ge Fe Ge Ge Be Ge Ge Be Ge Ge Ge Be Be Be Se 
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003C 00000 NML_V2_SHOWKNOWN: 
Save R2,R3,R4,R5 ; 0471 


.W 
% 38 5% G0008 gt’ STAT LG : 0494 


F 15 
NMLSV2COMP Process NICE V2.0 requests 16-Sep-1984 00:39:4 AX-11 Bliss-32 V4.0-74 Page 16 
VOL-000 NML_V2_SHOWKNOWN Show known V2 Line parameters 14-Sep- 3B 99:3533 ENML SRC NMLV2COMP .B32; . (6) 
: 474 470 1 ZSBTTL_ "NML_V2_SHOWKNOWN Show known V2 Line pareneeare: 
H $f? 8 : ROUTINE NML_V2_SHOWKNOWN (ENTITY, INF) : NOVALUE = 
: 47 138 1 44 
s 47 474 1 ! FUNCTIONAL DESCRIPTION: 
; 47 475 1! This routine reads the volatile data base entries for all 
; 480 278 1! nes. 
; 481 47 1! 
>; 48 ehh 1 ! FORMAL PARAMETERS: 
; 48 0479 1! ENTITY Entity type code. 
: 484 0480 1! INF Information type code. 
5 rt Fs be ia a 
; 4 4b 1 i= 
: 487 04 1 
; 488 Bese BEGIN 
3; 489 485 
; 490 0486 LOCAL 
; 491 0487 BUFEND, 
:; 49 0488 LENGTH, 
; 49 0489 LISDSC : DESCRIPTOR, 
: 494 0490 PTR 
: 495 0491 STATUS 
: 496 049 STRTFLG; 
; 497 049 
; rh Bead STRTFLG = FALSE; 
; 500 0496 WHILE NMLSGET_ENTITY_IDS (.ENTITY, NMASC_ENT_KNO, 0, .STRTFLG, LISDSC) DO 
; 501 0497 BEGIN 
3 206 0498 3 
; 50 0499 3 STRTFLG = TRUE; 
: 504 0500 ; 
; 505 0501 BUFEND = .LISDSC CDSCSA_POINTER] + .LISDSC COSCS$W_LENGTH); 
3 208 6206 ; PTR = .LISDSC CDOSCSA_POINTER); 
; 508 0504 WHILE .PTR LSSA .BUFEND DO 
; 509 0505 4 BEGIN 
: 510 0506 4 
s $11 0507 4 LENGTH = .(.PTR)<0,16>; 
: 21g 0508 4 PTR = .PTR + 2; 
$ 2} 0509 4 
: 218 att 2 NML_V2_SHOWLINE (.ENTITY, .INF, .LENGTH, .PTR); 
: 516 b21¢ 4 PTR = .PTR + .LENGTH; ! Advance pointer 
: af ga! 4 
: 18 514 END; 
: 519 0515 END; 
3 259 0516 
: 521 0517 END; ! End of NML_V2_SHOWKNOWN 


15 
a We vas NICE V2.0 requests 18-Sep-1984 90: 33:4 AX-11 ig ge 2 Bt Page 17 


SHOWKNOWN Show known V2 Line parameters 14-Sep- NML.SRCINMLV2COMP.B32; (6) 


4008 gf BB 7 1$: PUSHR #*M<R3,SP> 5 0496 
E D B CLRL = = (SP) : 
7E 01 CE MNEGL #1, <(SP) : 
04 ag DD 0001 PUSHL ENTITY : 
000000006 00 Q FB 1 CALLS #5, NMLSGET_ENTITY_IDS : 
A 0 € 1A BLBC =._- RO. 3 : 
3 01 BO 1D MOVL #1. STRTFLG + 0499 
6— 3¢ MOVZWL LISDSC, BUFEND + 0501 
55 04 AE CO 000 ADDL2 LISDSC+4, BUFEND ; 
3 04 AE DO 000 MOVL  LISDSC+4. PTR + 0502 
5 52 D1 00028 2$: CMPL PTR, BUFEND + 0504 
JE 0 BGEQU 1$ ; 
54 3 C MOVZWL (PTR)+, LENGTH + 0507 
dD 03 PUSHL PTR + 0510 
4 pp 0035 PUSHL LENGTH : 
7E 04 AC 7D 90 7 Ova. ENTITY, =(SP) : 
00000000v 00 g4 FB 0 CALLS #4, NML_V2_SHOWLINE ; 
52 4 ¢O 0004 ADDL LENGTH, PTR + 0512 
E4 11 0004 $ + 0504 
04 00047 35: RET : 0517 


; Routine Size: 72 bytes, Routine Base: S$CODE$S + 019A 
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NMLSV2COMP Process NICE V2.0 r 
vOu-005 . ve 


H 15 

equests 16-Sep-1984 00:39:4 AX-11 Bliss-32 V4.0-742 Page 18 

_V2_SHOWACTIV Show active Line parameters 12286871382 99: 0:2 NML.SRCINMLV2COMP.B32;1 . (7) 
E 


; 3 18 1 ZSBTTL "NML_V2_SHOWACTIVE Show active Line peregeters® 
; ¢ 1 ! ROUTINE NML_V2_SHOWACTIVE (ENTITY, INF) : NOVALUE = 

: 526 1 1 !44 

H é f 5 ‘ ! FUNCTIONAL DESCRIPTION: 

: 529 82 4 1! This routine reads the volatile data base entries for all 
$ 2 ? 82 5 ! } Lines. 

3 5 ¢ 05 8 1 ! FORMAL PARAMETERS: 

: 33? bass 1 i ENTITY Entity t d 

: ! n e code. 

: 2 5 82 wh INF lnterhetton type code. 

3 g882 4] | 

; 538 05 : 1 

; 539 0534 BEGIN 

; 540 0535 

3; 541 bee9 LOCAL 

3 26 05 BUFEND, 

; 36 0538 LENGTH, 

3; 544 0539 2 LISDSC : DESCRIPTOR, 

; 545 0540 PTR 

: 546 0541 STATE : BYTE, 

; 547 b286 ST 

: 548 054 STRTFLG; 

: 549 0544 

3 229 beee STRTFLG = FALSE; 

3 226 0547 WHILE NMLSGET_ENTITY_iDS (. ENTITY, NMASC_ENT_ACT, 0, .STRIFLG, LISDSC) DO 
3 pees BEGIN 

; 554 0549 ; 

5 32? 8239 STRTFLG = TRUE; 

2 Sor 8226 ; BUFEND = .LISDSC CDSCSA_POINTER] + .LISOS< CDSC$W_LENGTHI; 
; 558 055 PTR = .LISDSC COSCS$A_POINTER); 

3; 559 0554 3 

; $60 0555 3 WHILE .PTR LSSA .BUFEND DO 

: 561 3226 4 BEGIN 

3 266 557 4 ! 

; 56 0558 4 ' Get Line or circuit state. 

: 564 0559 4 ' 

s 365 0560 4 STATE = .(.PTR)<0,8>; 

3 206 b205 4 PTR = .PTR + 4; 

; 266 4 

3 208 bee 4 LENGTH = .(.PTR)<0,16>; 

; 36 564 4 PTR = .PTR + 2; 

; 570 565 4 ! 

3 27) 266 ? } Process line or circuit. 

; ig 568 4 IF .STATE NEQ NMASC_STATE_OFF 

: 74 297 4 HEN 

3 Le 359 2 NML_V2_SHOWLINE (.ENTITY, .INF, .LENGTH, .PTR); 
: 278 276 4 PTR = .PTR + .LENGTH; ! Advance pointer 

: 278 573 4 

3s oT 574 3 END; 


a 


; 580 
: 3H 


; Routine Size: 


NML_V 


ream NICE V2.0 r 
€ VE 


83 bytes, 


SHOWACTI 


HH fee: 


al 
m 


“ 
m 


000000006 


OUMWMNUWT WWMMUYIWO 
—FSIWM AMAOOWMO 


7E 
00000000v 98 


Routine Base: 


15 


equests 1b-Se -1984 00:39: 
Show active Line parameters 1 ~Sep-19 4 99:33: 


! End of NML_V2_SHOWACTIVE 


007¢ 


4008 


Sree one 


ODI IF OWMOomM—GOonrowuw 


OSM TANI AIPOM MM Oui ror Woo 


04 


Oo 
r~ 
yop VIMOMNWODT NS FCOMO PF ONOMO 


oo 
of 
oO noo —OWoO 


SCODES + O1E2 


00000 NML_V2_SHOWACTIV 
WORD 


WO 
000 SUBL2 
8 CLRL 
1$: PUSHR 
08 fLRL 
00D HNE GL 
68ig PUSHL 
8 1 CALLS 
1A LBC 
0010 OVL 
0 MOVZWL 
0 ADDL2 
88 OVL 
028 2$: CMPL. 
4 BGEQU 
OVvB 
003 ADDL2 
00036 MOVZWL 
00039 CMPB 
0003¢ EQL 
0003E PUSHL 
00040 PUSHL 
00042 MOVQ 
00046 CALLS 
00040 3$ ADDL2 
00050 BRB 
00052 4$ RET 


AxX-11 8B Lg | PL ol 


ws 
22 NML.SRCINMLV 


E: 
save R2,R3,R4,R5,R6 


fT 
a5, NMLSGET ENTITY. IDS 
STRTFLG 
SC, BUFEN 
SC+4, BUF 
$C+4. PTR 
BUF END 
PTR)+, STATE 


(PfR)+, LENGTH 
ATE, #1 


oe 


D 
END 


WONnA2-——- Urnrr aw 

PVN M1 2 
DMM -« 
." ovoso 


PTR 


LENGTH 

ENTITY, =(SP) 

#4, NML_V2_SHOWL INE 
LENGTH, PTR 


Page 19 
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NMLSV2COMP Process NICE V2.0 requests 18-50 Sep-1984 AX-11 Bliss-32 V4.0-74 Page 20 
atid NML_V v3 ~_SHOWL INE Sheu v3 Line parameters 300-1382 99: 35:3) NML.SRCINMLV2COMP.B32; 7 BS 
> 584 78 1 XSBTTL "NML_V2_SHOWLINE Show V2 Line parameters’ 

; 585 7 ! ROUTINE NML_V2_SHOWLINE (ENTITY, INF, LEN, ADR) : NOVALUE = 

$ 8 581 1 !t¢ 

3 4 5 ¢ ! FUNCTIONAL DESCRIPTION: 

3; we 2 4 1! This routine reads the volatile data base entries for al 

; 591 82 Be V2 lines - I.E. it ge $s the presser rece LINE and C cIRCy UIT 

5 3g 5 § 1 i arameters from the V5 NETACP to do : ne B for a V P. 

; 59 b2 1 i a pacow the routine is as ty B. s, is so that 

3 age 5 3 : the V2-V35 compatibility code can be me thrown away for V4. 
; 232 be 01! FORMAL PARAMETERS: 

; 597 0591 1 | 

; 598 8236 1! ENTITY Entity 

; 599 0593 1! INF Ealertot ted type code. 

; 600 0594 1! LEN Length of entity id string. 

; 601 0595 1! ADR Address of entity id string. 

; 60 0596 1} 

; 8 0597 1 i- 

; 604 0598 1 

; 605 0599 BEGIN 

; 606 0600 ! 

3; 607 0601 ' Data for SHOW LINE CHARACTERISTICS. 

; 608 060 ! 

; 609 060 BIND 

; 610 0604 NML$GQ_LINBFDSC = NML$GQ EXEBIOSC: DESCRIPTOR 

3; 611 0605 NML$GQ—  LINDATDSC = NML$GO EXEDATDOSC: DESCRIPTOR, 

3 ol¢ beoe NMLSGL. “LINDATPTR = NMLSGL~  EXEDATPTR; 

3 614 060 BIND ROUTINE 

s 615 0609 NMLSSHOLINBYTE = NML$SHOEXEPARAM, 

: 618 Beto NMLSSHOLINWORD = NMLSSHOEXEPARAM; 

; 618 bets MACRO 

> 619 m 061 CHAR_PARAMS = 

: 620 M 0614 PCCI, SER, NMLSSHOPARAM ' Line service 

; 621 M 0615 -PCCI, LCT, NMLSSHOPARAM ' Line Line counter 

3 o¢¢ ff B618 -PCCI, BLO, NMLSSHOPARAM ' Block size 

3; 62 M 061 -PCCI, COS, NMLSSHOPARAM ' Cost 

3 624 M 0618 -PCLI, » NMLSSHOLINBYTE ' Controller 

3; 625 M 0619 -PCLI, DUP, NMLSSHOLINBYTE ' Duplex 

: 626 M 0620 -PCLI, PRO, NMLSSHOLINBYTE ! Protocol (V2 Type) 

3 os? M 0621 PCLI, STI, NALSSHOLINWORD ' Service Timer 

; 628 Mm 06 § -PCLI, RTT, NMLSSHOLINWORD ' Retransmit Timer (V2 normal timer) 
: $6? Mm 06 -PCCI, TRI, NMLSSHOPARAM ! ae coetery 

; 6 M 0624 PCLI, BFS, NMLSSHOLINWORD ' Receive buffers 

: 631 0625 {; 

3 O36 6 § 

; 63 6 EXT_LIST (CHAR_PAR 

; 634 6 8 PRM-LIST (LIN, “VOCHAS tnaR _PARAMS) ; 

: 3 0 3: 

; aH 631 NFB to get the V2 Line parameters that are circuit parameters in V3. 
3; 639 P o38 SNF BDSC (NML$Q_CIRC -NFBDSC SHOW, , CRI 

3; 640 P 0634 NAM, 1 Search key one = circuit name, oper! = eql 
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v04- Wa _SHOWL INE Show vet Line parameters 12: 8ep-1986 99: 35 3 ENA. SRC NAL VCOMP: B32;1 " 8) 

: 641 P 06 : - ' Wildcard search key two, oper2 = eql ‘ 
3 ots e ? $ »NAM ' Name 3 7 : 
; 64 P oSER ' Service ° 
> 644 P 06 3 »LCT ! Counter timer ’ 
; 645 P 06 -BLO ! Block size ° 
H one P 0640 COS ' Cos ° 
; 64 P 0641 TRI ! Tributary ‘ 
; 648 be 5; ; 
; 649 64 ‘ 
; 650 644 ' ‘ 
; $2) 645 NFB to get the V2 Line parameters that are Line parameters in V3. ‘ 
: £2 Pp Sey SNFBDSC (WAL SQ_LINE_NFBDSC SHOW, , PLI ‘ 
> 654 P ote »NAM, Search key one = circuit name pert = eql ° 
; 655 P 064 ° : wildcard search key two, opere = eql ‘ 
: 696 P 0650 > CON i Controller ; 
: 65 P 0651 , DUP i Duplex : 
; 658 P 8926 PRO : Protocol (V2 Line type) ; 
; 659 P 065 oSTl ! Service timer : 
: 660 P 0654 RTT : Retransmit timer (V2 Normal timer) ; 
; 661 P 0655 BFN ! Receive buffers ‘ 
: 668 0656 j; ; 
; 66 0657 : 
; 664 0658 ! : 
: 665 0659 ! Circuit summary : 
; 666 0660 ! ‘ 
; 667 0661 MACRO : 
; 668 M Bees SUMMARY_PARAMS = : 
; 669 M 066 PCCI, STA, “ NMLSSHOPARAM ! State ; 
; 670 M 0664 -PCCI, UB, NML$SHO Vel Ine _SUBSTA ' Substate : 
; 671 M 0665 *PCCI, LOO. NMLS$SHOPAR ' Loopback name : 
3 ore M 0666 PCCI, ADJ, NAL SSHONODE 1D ! Adjacent node : 
: 67 0667 4; ; 
3; 674 B9e8 3 
3; 675 669 EXT_LIST (SUMMARY PARAMS) ; ; 
> 676 0670 2 PRM-LIST (LIN, V2SUM, SUMMARY_PARAMS); 3 
3; 677 0671 3 
3 678 be78 ' : 
; 679 067 ! Data for SHOW LINE SUMMARY and STATUS. : 
; 680 0674 : ; 
; 681 0675 MACRO : 
3 one Beas ! Circuit status . 
3; 63 M 067 STATUS_PARAMS = : 
3; 684 " 4 PCCI, STA, WAL SSHOPARA ! State 3 
; 685 mM 067 -PCCI, SUB, NMLSSHO V2L INE  SUBSTA ! Substate 3 
3; 686 M 0680 -PCCI, 00, Nat SSHOPAR ' Loopback name 3 
3; 687 M 0681 -PCCI, A NAL SSHONOD DE ID ' Adjacent node : 
3; 688 L ret) PCCI, BLO. NMLSSHOPARAM ! Block size : 
3 on a7 {; : 
; 691 5 PRM_LIST (LIN, V2STA, STATUS_PARAMS); : 
3; 692 0686 ° 


15 
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you 5  SHOWLINE Show Ve L..@ parameters 14 Haat fi 99: 0:2 j - (35 


NML_V - NML.SRCINMLV2COMP.B32; 
; 6% 687 2 LOCAL ; 
; 695 6 3 DATDSC : DESCRIPTOR, ! Q10 data descriptor : 
; o28 6 DATPTR, ! Pointer into P4 buffer : 
; 69 6 TABDSC : REF DESCRIPTOR, ! WICE pereneter formatting descriptor ‘ 
; 698 4 DUMDSC : REF DESCRIPTOR, ! Dummy descriptor ; 
; 328 MSGDSC : DESCRIPTOR ! Output message descriptor ‘ 
; 700 69 NFBDSC : REF DESCRIPTOR, i NFB descriptor : 
; 701 694 P2DSC_ : DESCRIPTOR, ! P2 parameter descriptor ‘ 
; 695 PERIOD_PTR, ; 
; 70 069 LINE_LEN; ! Length of circuit's corresponding ; 
; 704 069 : Line ID. ; 
: He 0699 
; 107 0700 2 SELECTU .INF OF 
; 709 070 CNMLSC_STATUS, NMLSC_SUMMARY, NMLSC_COUNTERS): ; 
: 711 0704 i For status, summary, and counters the show parameters for V3 ‘ 
3 re 0705 ! circuits are the ones required for show parameters for V2 Lines. ‘ 
; at Bree 2 } Formatting the SUBSTATE parameter, however, is different. ‘ 
a Ry oe ; 
; 717 0710 3 i Get canned NFB to ee parameters from NETACP and build P2 buffer : 
3 re gett ; : to get parameters from specified circuit. : 
: 720 $718 3 NML$GETINF TABS (NMLSC_CIRCUIT, .INF, NFBDSC, TABDSC, 0); 
s Ufa 0714 3 NMLSBLDP2 (.LEN, .ADR, -1, 0, NMLSQ_P2BFDSC, P2DSC); 
ioe by poe 
; 72 or? : CNML$C_CHARACTERISTICS): 
3 726 0719 2 i Some V2 Line characteristics are V3 Line parameters and some 
s fer O79 § ! are V3 circuit parameters. Issue Q10s to both volatile data 
; ree 144 | databases to get them. 
/ Se 
: 73 0725 : i If the circuit is multipoint, convert the circuit ID to a Line ID. 
; it: 8cs$ (Circuit ID DMP-0.2 = Line ID DMP-0). 
; 73s 97 8 PERIOD PTR = CHSFIND_CH (.LEN, .ADR, %C'."); 
ems 729 IF .PERIOD_PTR NEQ O° THEN 
; g 7 07 0 INE_LEN = .PERIOD_PTR - .ADR 
; 739 07 LINE_LEN = .LEN; 
; my 4 § NMLSBLDP2 (.LINE_LEN, .ADR, -1, 0, NMLSQ_P2BFDSC, P2DSC); 
; et 5 ; Use canned NFB to get Line parameters from NETACP. 
: 744 7 IF NOT NMLSGETDATA (NML$Q_LINE_NFBDSC, P2DSC 
; 245 07 g oe NML$GQ_LINBFDSC, NML$GQ_LINDATDSC) 
; 48 se 4 AAC SBLD REPLY (NMLSAB_MSGBLOCK, MSGDSC CDSC$W_LENGTH]); 
: 749 a) 4 NMLSSEND (NMLSAB_SNDBOFFER, -MSGDSC DSCSu LENGTHS). : 
3; 750 0745 4 RETURN 
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NICE V2.0 requests 16-Sep-1984 00:39:4 AX-11 BLi 2 V4.0- 
_SHOWL INE show V Line parameters 14 Het 7 90:33:33 NML. SRed mLV 


up pointer to buffer with Line characteristics. The buffer 
the circuit characteristics is handled by DATPTR. 


h 

L.LINDATPTR = .NML$GQ_LINDATDSC COSCSA_POINTER); 
C~= NML$Q_CIRC_N 

C = NML$Q “LINV2CHAL TABDSC; 

LDP2 (.LEN, .ADR, =1, 0, NMLSQ_ P2BFDSC, P2DSC); 
; Tes; 

Use canned NFB to get circuit parameters from NETACP. 


if NMLSGETDATA (.NFBDSC, P2DSC, NML$GQ_QIOBFDSC, DATDSC) 


BEGIN 
eet (SELECTONEU .INF OF 
me STATUS]: NMLS$Q_LINV2STA_TABDSC; 
NML$C~ SUMMARY]: NML$Q~ “LINV2SUM_TABDSC; 
SpIRENOLSE Ss - TABDSC; 
DATPTR = .DATDSC CDSCSA_POINTER]; 
i Format the Line and circuit parameters into a single NICE 
i response message. NMLS$Q -LINV2CHA_TABDSC causes the formatting 
i routine to switch between the Line and circuit buffer when 
necessary. 


NML SPROCESSDATA (ENTITY, .TABDSC, DATDSC, DATPTR, MSGDSC); 


NMLSBLD REPLY (NMLSAB_MSGBLOCK, MSGDSC coscsu_ LENGTH]); 
RSGDSC TDSCSA_POINTER] = NML$AB_SNDBUFFE 


Send NICE response message to NCP. 


: 
: 
' 
L 
END; of NML_V2_SHOWLI 


NM r‘aaigad (.MSGDSC CDSCSA 4 hae -MSGDSC COSC$W_LENGTH)); 
-PSECT SPLITS,NOWRT ,NOEXE ,2 
0000G 00018 P.AAE: .WORD PSTSK_PCCI_SER 
vened 0 QO1A -ADDRESS wn, SSHOPARAR 
888 G Bo e5 -WOR PSTSK_PCCI_LCT 
000000006 000 - ADDRESS WL SSHOPAR 
0006 00024 ° PST$K_PCCI_BLO 
0000 G 6 -ADDRESS NMLSSHOPAR 
A ol PSTSK_PCCI_COS 
000000006 -ADDRESS a eer 
8 G b8 -WORD  PSTSK_PCiI_ CON 
0000 G 000 - ADDRESS NMLSSHOLINBY TE 


=r 


NMLV2COMP .B32; 


ee 


NALS 


NICE v2.0 feaquests 
V2 Line parameters 


SHOWL INE 


Show 


Foz 


DADAQAAQAAA|AM|AGG? 


OOCGCOCOCOGCCOCOCOCOOCCCSOOOSOO OOOO OOOOOOOCoOO 
SSSSRSARSSSSAS Ss Hohe Oe bers. 
OOPrPOlonr MOO FORLOOMDLOOM SO LOMP OLMMO eed 


>> 


HOAQAAAOAOGAI|GA = AMAOAaMHaqa - 
Owen: 


SOSCGCCOCSCOOOSOOOOOSOSOSOOSOSOOOOCOOSOSOOOSOOOOOSOOOOOOOOO 


Be SS SS SSS SSS SSS SS SS SS SOOO OS OS SOOO SOO SOS 
or> 
rom 


ooo 
ow 
co 


Ooooooooec .- 


ita et 
o 


at ot 
>POOoOfLo "ne 


SOooooooooo 


none 

aow 

v0vo 
ee 


+ 


P.AAD: 
P.AAF : 
P.AAG: 
P.AAI: 


P.AAH: 
P.AAK: 


P.AAJ: 


woo 


i Ns 


WORD  _PSTSK_PCLI_DUP 
-ADDRESS perks peri Pane 
«WORD I PRO 
- ADDRESS "HAL SSHOL OLINBYTE 
«WORD PSTSK_PCLI STI 
—- wal SSHOL OL IRWORD 
RD PSTSK_PCLI_RTT 
coeness ase 


“W 1 ial 

- ADDRESS NL SSHOPAR 

«WORD PSTS$K_PCLI ars 

“ADBRESS_NALSSHOL IAUORD 


«BLK 

ONG 11 
ADDRESS P.AAE 
- LONG 

eADDRESS Y.1 

- LONG 
“ADD 


RESS U.3 
«WORD PStsK PCCI_STA 
———— NM SSuOr wt 


K PCCI_S 
“ADDRESS NMLSSHO v2L Ne, SUBSTA 


AM 
-WORD _PSTSK_PCCI_ADJ 
- ADDRESS NHL SSHONOBE 1D 


ORD PSTS$K_PCCI 
“ADDRESS NMLSSHO 1, S08, _SUBSTA 
“WORD PST$K_PCCI_LOO 
-ADDRESS NMLSSHOPARAM 
. WORD psTsk PCCI_ADJ 
. ADDRESS PAMLSSHONOBE TD 

R PST$K_PCCI BLO 
ADDRESS NLS SHOPARAM 


-LONG 
ADDRESS P.AAK 
-PSECT SOWNS,NOEXE,2 


-BYTE 3° 

-BYTE 

-BYTE 4 

-BYTE 0 

-LONG 67240001 
-LONG 1 

-BYTE 

-BYTE 

- WORD 

- LONG 0760000) 
LONG 67108866 


AX-11 Bliss-32 V4.0-742 
NML.SRCINMLV2COMP.B32; 1 
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Sv2COMP Process NICE V2.0 requests 18-3¢ -19 39:4 AX-11 Bliss-32 V4.0-742 Page 25 
vad tts NM. V3. SHOWLINE Show V2 Line parameters 1 730071382 99:35:33 NAL SREINALVSCOMP 3005 3} 
401001 1 .LONG 67174421 : 
rh 1? 138 LONG 67174423 ; 
491 18 001 ¢ .LONG 67174424 : 
401 34 14 LONG 671746 6 : 
0000000 00144 . LONG : 
148 .BLKB 4 
22 O014C ;_NFB 
UT3: <BYTE 34 ; 
99 14D .BYTE g : 
6 14€ .BYTE : 
0 0014F “BYTE 0 : 
95020044 150 -LONG 84017217 ; 
0000001 154 .LONG 1 : 
0158 -BYTE 0 ; 
0159 BYTE r 
99 013A WORD 0 ; 
9500 004 1 ¢ «LONG 83886084 ; 
5000003 00160 LONG 83886085 ; 
95010014 0164 LONG 83951636 ; 
5010015 00168 LONG 83951637 ; 
05010021 9016¢ .LONG 83951649 ; 
0501001E 00170 «LONG 83951646 : 
00000006 90174 .LONG 0 : 
0178 -BLKB 4 
NML$Q_LINV2CHA_TABDSC= 
P.AAD 
U.2= P.AAF 
U.4= P.AAG 
NAL$Q_LINV2SUM_TABDSC= . 
NML$Q_LINV2STA_TABDSC= . 
EXTRN PSTS$K_PCC1_SER, PSTSK_PCCI_LCT 
EXTRN PSTS$K-PCCI-BLO, PSTS$K-PCCI_COS 
EXTRN PSTSK-PCLI-CON, PSTS$K~PCLI_DUP 
EXTRN PSTS$KIPCLI-PRO, PSTS$K~PCLI-STI 
EXTRN PSTSK-PCLI-RTT, PST$K-PCCI_TRI 
EXTRN PSTSK-PCLI~BFS, PSTSK_PCCI “STA 
EXTRN PSTS$K-PCCI~SUB, PSTSK~PCCI-LOO 
EXTRN PSTS$K~PCCI~ADJ 
.PSECT $CODES$,NOWRT,2 
0O1FC 00000 NML_V2_SHOWL INE: 
-WORD Save R2,R3,R4,R5,R6,R7,R8 ; 0579 
58 00000006 00 9€ 00002 MOVAB NMLS$AB_SNDBUFFER. RB : 
3 990 9006 9—E 00009 MOVAB NMLSBLO_REPLY, R? : 
h G 9E 0019 MOVAB NMLS$AB_ASGBLOCK, R6 : 
55 6 G 9E 1 MOVAB WMLSGETDATA, R5 : 
24 G 9E 00 3 MOVAB NMLS$BLDP2, R4& ; 
3 000 y 9E 00 MOV Ns $0 P2BFDSC, R3 : 
3s eo ut f ie te * 0700. 
01 D1 3 CMPL R2, #1 > 0702. 
18 BLEQU : | 
03 D1 000 CMPL =e R2,, #3 ; 


16 
NMLSV2COMP Process NICE V2.0 requests 1b-5e -1984 39:4 AX-11 Bliss=32 V4.0-74 Pa 
catittd NML V3. SHOWLINE show YP Line parameters 1 =3007 1382 99:35:33 NML.SRC Nae vaconP 63004 = 5 
34 12 00038 BNEQ 2$ ; 
—E 04 D 1$: CLARL = (SP) + 0713 
04 AE 9F F PUSHAB TABDSC ; 
C AE 9F 0004 PUSHAB NFBDSC ; 
52 DD 4 PUSHL R : 
0 DD 0004 PUSHL # : 
000000006 00 5 FB 00049 CALLS #5, NMLS$GETINF TABS ; 
0c AF OF 2 PUSHAB P20SC + 0714 
53 DD PUSHL : | 
7E 04 0005 CLRL  =(SP) : 
7E 01 ce 05 MNEGL #1, -(SP) : 
7E OC AC 7D >A MOV LEN, -(SP) : 
64 9 FB OOCSE CALLS #6, NMLSBLDP2 ; 
02 D1 00061 2$: CMPL 2, #2 + 0717 
79 12 00064 BNEQ : | 
10 BC Oc AC 2E 3A 00066 LOCC #46, LEN, @ADR + 0728. 
02 12 0006C BNEQ  3$ ; | 
51 04 0006E CLRL sR : | 
51 05 90070 3$: TSTL § PERIOD_PTR + 0729) 
07 13 00072 BEQL ; 
50 51 10 Ac C3 9007 SUBL3 ADR, PERIOD_PTR, LINE_LEN + 0730. 
04 11 00079 BRB ; 
50 0c AC 00 0007B 4$: MOVL LEN, LINE_LEN : 0732. 
is AE 9F OOO7F 5$: PUSHAB P2DSC : 0733) 
53 DD 00082 PUSHL R3 ; | 
7E D4 00084 CLRL. <-(SP : | 
7E 01 CE 00086 MNEGL #1, -(SP) F 
10 AC DD 00089 PUSHL ; 
50 DD 0008C PUSHL ; 
64 06 FB OO008E CALLS #6, F | 
000000006 00 9F 00091 PUSHAB NML$GQ_LINDATDSC ; 0737 
000000006 00 9F 00097 PUSHAB NML$GQ-LINBFDSC : 
14 AE 9F 0009D PUSHAB P2DSC ; 
64 A3 9F OO0A0 PUSHAB NML$Q_LINE_NFBDSC ; 
65 04 FB S004 CALLS #4, NALSGETDATA ; 
11 50 £8 000A6 BLBS RO, 6$ F 
14 AE SF O00A9 PUSHAB MSGDSC + 0741 
56 DD OOOAC PUSHL : 
67 02 FB OOOAE CALLS #2, NMLSBLD_REPLY ; 
7E 14 AE 3¢ 000B1 MOVZWL MSGDSC, -(SP) : 0742, 
58 pp 0085 PUSHL R F 
0087 31 00087 BRW 13$ ; 
000000006 00 000000906 00 00 OOOBA 6$: MOVL § NML$GQ_LINDATDSC+4, NMLSGL_LINDATPTR > 0749 
04 AE 5¢ a3 9E O9¢3 MOVAB NML$Q_CIRC_NFBDSC, NFBDSC : 0750 
6E 54 A3 YE OOOCA MOVAB NMLSQ"LINVZCHA_TABDSC, TABDSC : 0751 
0c AE 9F OOOCE PUSHAB P2DSC : 0752 
53 DD 00001 PUSHL R ; 
7E 04 6 D3 CLRL. = (SP) ; 
7E 01 ce D5 MNEGL #1, -(SP) : 
7E 0c AC 7D 00008 MOV. LEN, (SP) : 
64 FB O00DC CALLS #6, NMLSBLDP2 F 
1¢ AE OF OOODF 7S: PUSHAB DAT : 0758. 
000000006 00 9F & PUSHAB NML$GQ_QIOBFDSC ; 
14 AE 9F OOOE PUSHAB P2DSC ; 
10 AE DD OOOEB PUSHL NFBDSC ; 
65 4 FB 6 FE CALLS #4, NML SGETDATA ; 
A 0 €9 000F BLBC ~—_ RO, «11 : 


NMLSV2COMP Process NICE V2.0 requests 
vad tts NML. V2. SHOWLINE show YF Line parameters 
01 D1 
87 3 
50 OOAC oF 7 
D 
50 0084 i iF 
. 8 i 
6E 5 DO 
08 AE 20 AE 00 
14 AE ar 
OC AE OF 
24 AE OOF 
OC AE ODD 
04 Ag DD 
000000006 00 0S FB 
0c 11 
14 AE OF 
56 DD 
67 0 FB 
18 AE 68 9E 
7E 14 AE 3C 
1C AE OD 
0C000000G 00 02 fe 


; Routine Size: 329 bytes, Routine Base: S$CODE$ + 0235 
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3] AX-11 gM ge 2 V4.0-742 Page 3? 
:2 NML.SRCINMLV2COMP.B32; 1 (9) 
Ree #1 3 0763 
NML$Q_LINV2STA_TABDSC, RO : 
Re : 0764 
NML $Q_LINV2SUM_TABDSC, RO : 
TABDSC, RO + 0765) 
RO, TABDSC ; 0761, 
DATDSC+4, DATPTR + 0767 | 
MSGDSC + 0774, 
DATPTR ; 
DATDSC ; | 
ABDSC : | 
ENTITY : 
#5, NMLSPROCESSDATA : 
> 0758) 
MSGDSC ; 0778 
#2, NMLSBLD_REPLY : | 
NML$AB_SNDBOFFER, MSGDSC+4 > 0779 | 
MSGDSC; =(SP) + 0784. 
MSGDSC+4 ; 
#2, NMLS$SEND : 
; 0785. 
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000000000: 09 CD Cd C9 Cd Cd Cd Cd CD Cd Od CD CO CD OD OD CD Od CD CD OD 09 CD CD CD 0D OD CD CD OD Cd CD CD 0D 0D CD CD CD. CD CD ~V 
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0 
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$$ 


HO_V2LINE_SUBSTA Show V2 Line substate 
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NICE V2.0 requests 1 1984 00:39:4 AX-11 Bliss-32 V4.0-74 

1 -1382 99: 8:33 NAL SREINACY COMP .B32; 
ZSBTTL ‘NMLSSHO Vel INES BSTA Show V2 Lin 
GLOBAL ROUTINE AMLSSHO-V2LINE_SUBSTA _— Benen tees 
144 


' FUNCTIONAL DESCRIPTION: 
This routine is called when processing a SHOW LINE command from 
a remote NCP which is running Network Management V2.0. It gets 
the circuit substate from the Q10 buffer, and puts it into the NICE 
response message. 


FORMAL PARAMETERS: 
SEM_LIST Parameter semantic table entry address. 


BUF DSC Output message buffer descriptor address. 
MSGSIZE Address of current output message size. 
DATDSC Q10 bifter descriptor address. 

DATPTR Curre * pointer into Q10 data buffer. 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 


BEGIN 


Oe ee ee 


P 
SEM_LIST : REF BBLOCK; 
IF_ .(..DATPTR)<0,32> NEQU ~-1 

THEN 
BEGIN 


i Change the Pe agp santa bid substate to ‘‘on-starting’’ so the V2 
} NCP will print out something intelligible. 


if .(..DATPTR)<0,32> EQL NMASC_LINSS_SYN THEN 
..DATPTR = NMASC_LINSS_STA3 


! 
Add the Line substate to the NICE message. 


NMLSADDMSGPRM ( .BUFDSC 
“MSGSIZE 
“SEM_LIST CPSTS$W_DATAID] 
“SEM-LIST CPSTSB~DATATYPE), 


.DATPTR); 
END; 
PTR = ..DATPTR + 4; 


.DAT 
RETURN NML$_STS_SUC 
END; ! End of NML$SHO_V2LINE_SUBSTA 


roe if 


way SE COMP 


; Routine Size: 


F 
NAC S58 Vac ine -soesta Show V2 Line substate 12: 


58 bytes, 


se 
FFFFFFFF F 
OA 


000000006 


VAONNNV 
Orvommnmnae 


Routine Base: 


0004 
14 AC D 
00 8 D 
00 1 16 
i 12 14 
00 B2 04 Bpi8 
8 DD 00019 1$: 
1 0D 00018 
04 AC 00 0001D 
03 =A A 6° } 
6 C 00 
08 AC 70 00028 
06 FB 44 f 
04 CO 00055 2$: 
01 DO 00036 
04 00039 


SCODES + 037E 


p=1986 93:80:33 


AX-11 B losvae V4.0-74 
NML.SRCINMLV2COMP.B32; 

$70 Ve INE SUBSTA, Save R2 

R, R 

», #1 

(R2), #10 


D-aM—DOVROKVOrYr=s 
ar 
~D zum 
™m m- 
~ 


Boveeseceyveve 
"ODS wm 


LI 

0, -(SP) 
dsc, =(SP) 
#6, NMLSADDMSGPRM 
#4, (R2) 


roe Bt 


Sete Se Se Se Be Se Se Se Se Se Se Se Be Se Se Se 


PUPPIES 
OVONOULSWN—OVO®W 


creas 3 NICE V2.0 requests 18-Sep 1384 90:38 AX-11 Bliss-32 V4.0-7 
V2_ SHOW LINKS Dispatch to show volatile LI =308-} NML.SRCINMLV2COMP.B32; (11) 


39 1 ZSBTTL "NML$V2_SHOW_LINKS Dispatch to show volatile LINK parameters’ 

re ! ROUTINE NML$V2_SHOW_LINKS (INDEX) : NOVALUE = 

t 1 !+4 

e } FUNCTIONAL DESCRIPTION: 

bas 1 i This routine shows a summary of V2 LINK parameters from the volatile 
rk : data base. 
Pe 1 i FORMAL PARAMETERS: 
0849 1! 
bee9 1 INDEX Entity information table index code. 
bag : IMPLICIT INPUTS: 
Baee : NMLSGB_ENTITY_FORMAT contains the entity format code. 
0856 1} If the NICE command is a request to SHOW KNOWN LINKS WITH NODE x: 
0857 1 | NMLSGW MUL TER, CPT contains the address of the Change Parameter 
0858 1 | able en try for the node name or address. 

0859 1! NML$GB “QUALIFIER FORMAT contains the node id Length. 

Bare : # NMLSAB_QUALIFIER-ID contains the node id. 
bees 1 i- 
0863 1 
0864 2 BEGIN 
0865 2 
0866 2 MAP 
0867 2 NMLSGB_ENTITY_FORMAT : BYTE SIGNED; 
0868 2 
0869 § ! Pee 
ba59 § ALL functions specifying the LINK entity must be system-specific. 
087¢ 2 SELECTONEU . .NMLSGB_ENTITY_FORMAT OF 
0874 g CNMASC_ENT_KNO): ! > maa or known with node. 
0875 2 NMC v2- DISPATCH (NMLSC_LINKS, 
0876 2 NML_V2_ SHOW_LINKS, ' Routine address 
0877 § “NACSGEa UACIFIER_PST, 
0878 NML$GB_ QUAL IFIER- FORMAT, 
0879 2 AML SAB POUALIFIER T D); 

0880 
Bees TES; 

peas NMLSERROR_2 cause _STS_IDE, ! Identification error 

peee NMASC_SENT_LNK) ; 

0886 1 END; ! End of NML$V2_SHOW_LINKS 


0000 00000 NML$V2_ _— LINKS: 


Sav 3 9 
000 CVIBL NALSGBCENTITY FORMAT, RO : 08 
5 et Oe oe (MPR ORO, &-T : 08 


4 Page 79 | 


RES Peete to show volatile LI 1$-}00-1 96 93: 35: 3} 


ooo 
—==S0 
~” 


—_— 
or "nr 


’ “NHL V2_DISPATCH 


onvowoo 
owuon 


NOON 
@omow 


oooo 


OOOO-OOCOCOornD 


MONMODOOCOCOO 


#9, (SP) 
#2, NMLSERROR_2 


7E 
000000006 00 


OOoOooooooooo 
Coooooceoo 


So 
= 


; Routine Size: SCODES + 0388 


Page 47) 


16 
NMLSV2COMP Process NICE V2.0 request b-fe -1984 00:39:4 AX-11 Bliss-32 V4.0-74 P 
yaa Ro V ~300- 138% 99: 0:2 NML.SRCINMLV2COMP.B32; age 35 
le l 
ST 


1 
NML_V2_SHOW LINKS Show volatile Links param 1 
ZSBITL_ "NML_V2_SHOW_LINKS Show V2 yotatt 


; 898 3 1 a inks pene, 

; 8 i ROUTINE NML-V2_SHOW-LINKS (ENTITY, QUAL_PST, QUAL_LEN, QUAL_ADR) : NOVALUE = 
; 901 91 1 !44 

; 4 : ! FUNCTIONAL DESCRIPTION: 

; 904 8 94 1! This routine is called to perform SHOW LINK commands from nodes 

> 905 95 1! running V2 Network Management. The parameters returned are 

3 o08 +94 : different from those returned to a V2 node. 

; 908 0898 1! V2 nodes ! accept the SHOW KNOWN LINKS and the SHOW KNOWN 

; 909 344 1! LINKS WITH NODE <node-id> commands. The Links are returned by 

; 910 900 1! node. I.E. One response message is sent to NCP for each remote 

; 911 0901 } : node which there are current logical Links to. Each response 

; aig 8404 : message contains the node ID, we, ones by a list of Link 

; 0905 1! numbers and their PIDs. For a V5 node, NML returns one Link per 

; aie 44 ! response message along with its associated parameters. 

>; 916 0906 1: For SHOW KNOWN LINKS command, build Q10 buffers to get NETACP 

> 917 0907 1! to return information about all known Links on this node. 

; 918 0908 1! For SHOW KNOWN LINKS WITH NODE <nodeid> command, build Q10 

5s Ti? 0909 1! buffers to return information about all Links to the specified 

$ ase 3a ! node from this node. 

: 922 bo1§ . 7 The Q10 is repeated until all Links of the specified type have 

s Pes 0915 1! been returnec by the ACP. As each Link's information is received, 

; ase a4 : it is formatted into a NICE message and returned to NCP. 

> 926 0916 1 ! FORMAL PARAMETERS: 

: 927 0917 1! 

: 928 0918 1! ENTITY Entity type code Cohvarys NMLS$C_LINKS) 

: 4.4 0919 1! QUAL_PST Address of node quel it er's entry in the Parameter 

; 930 boss 1! Semantic Table (PST). 

: 931 Ore: 9 | QUAL _LEN Length of node qualifier ID string. 

; 932 0058 1! QUAL _ADR Address of node qualifier ID string. 

; 933 09 1 ! 

> 934 0924 1 !-- 

3 935 0925 1 

; 936 0926 BEGIN 

s S37 0927 

; 938 0928 LOCAL 

; 939 0929 P2DSC _: DESCRIPTOR, ! P2 buffer descriptor. 

; 940 0930 2 LAST_PNA, ' Last Link's partner node address. 
> 941 B33) § LINK_CNT, ! Count of Link entities returned by 
: 94 93 ! NETACP, 

3; 94 0935 2 STRDSC : DESCRIPTOR, ' Descriptor for node id for NICE 

3 944 0934 ' response message. 

: 945 0935 DATDSC : DESCRIPTOR, ' Return P4 buffer descriptor. 

: 946 0936 A ! P4 buffer pointer. 

3 947 0937 LAD_Buf : ws ! Buffer for accumulating LADs in NICE 
> 948 938 NML$K_SNDBFLEN], ! message format. 

3 949 939 LAD_BUF_DSC : DESCRIPTOR ' Descriptor for full size of LAD_BUF. 
: 950 940 LAD-DATA_DSC : DESCRIPTOR, i Descriptor for data in LAD_BUF. 

: 951 bees LAD_LEN, ' Longword for penggh of data in 

; 95 nee : LAD_BUF (NMLS$SHOWPRMLIST needs a 
; 95 94 : lLongword - I'm going to murder 
3 6954 944 : Davidson.) 


J 16 
NMLSV2COMP Process NICE V2.0 request 16-Sep-1984 AX-11 Bliss-32 V4.0-742 Page 33) 
v04- NML_V2_SHOW_LINKS Show v3 volatile Links param 14-8ep -1 1984 93: 36; 32 NML. SRCINMLY COMP .B32;1 * a3 
; 955 945 MSGSIZE, 
;. 9 ° ok STATUS; 
; 9 94 
; 958 94 
; 959 94 ' 
3 Bee Bey } For formatting the Link and its rID into the NICE response message 
; 9% 826 MACRO 
g Ber Rez LINK_PARAMS = PCLK, LAD, NMLSSHOLINKS 2%; 
: 366 0356 BR M bist (tas VesHo: i LINK_PARAMS) ; | 
3 P 
3 367 328 
; 968 0958 ! 
> 969 0959 } This NFB is used get the Link information for all the Links to 
3 are yaey a given node. | 
; 97 P 9494 $NFBDSC (NML_Q -Vé SHOLNK, SHOW, NFBSM MULT OR NFBSM_ERRUPD, LLI 
e- 97 P 096 »NFBSC_WICDCARD, ! Search key one = wildcard, oper! = eql 
3 are 4 84 ¢: ‘NFBSC “WILDEARD, ! Search key two = wildcard, oper2 = eql 
s 97 P 0966 ! Link parameters for NETACP to return in P4 buffer. | 
s O77 P 0967 ! 
; 978 P 0968 »PNA ' Partner node address 
; 979 P 0969 »PNN i Partner node name 
; 980 P 0970 -LLN ' Logical Link number 
; 981 P 0971 PID i Process ID 
; 98 097 S; 
; 98 097 
3 0974 P 
5 #4 34 NML_Q_V2_SHOLNK : DESCRIPTOR; 
; 987 0977 i Modify canned NFB et ge) ge to do the show Links requested by the NICE | 
; 988 0978 i command. Use special NFBs that only get the information required for 
: oS. +444 ; a V2 SHOW LINK: node name and address, Link number, and PID. 
; «991 981 NMLSBLDSHOWBUFS (. 2 NMASC_ENT 0, ; 
; 992 98 v2 + gag UoScsA. POINTER], ' Address of NFB to fill in. 
; 993 098 am 30 °p2 BFDS ' Buffer for P2. 
: 994 0984 Pobs ' Return P2 descriptor. 
; 995 0985 POUAL “PST P ! Node PST (if present? 
; 996 986 -QUAL_LEN ! Node ID Lengt 
: 997 987 QUAL “ADRS; ' Node ID address. 
; 998 3444 ! 
3 1900 i444 Set up for loop to get Link info from NETACP. 
: 1001 6991 LAD BUF _DSC CDSC$W_LENGTH] = ay SUOOFLER; 
3 18 Baa8 LAD-BUF-DSC CDSC$A_POINTER) = 
: 100 099 CAD-D DATA -DSC_CDSCSA_POINTER] = a "Bue; 
: 1004 994 LAST PNA = -1; 
3; 1005 995 ba TOS = 1; 
> 1006 996 LAD_LEN = 6; 
3; 1007 99 
; 1008 998 i NETACP will return all Links to a given node consecutiveiy. 
; 1009 999 ! This routine takes advantage of this fact. 
3; 1010 1000 i 
3: 1011 1001 WHILE .STATUS DO 
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NMLSV2COMP Process NICE V2.0 request 16-Sep-1984 00:39:4 AX-11 Bliss-32 V4.0-74 Page 34 
VOL 086 NML- V3. SHOW.LINKS Show v3 volatile Links param 12286871382 99:35:33 NML.SRC NAL V3COMP 635; 3s 
H 19i¢ 1 Mt BEGIN 
3; 101 1 STATUS = NMLSGETDATA (NML_Q_V2_SHOLNK, P2DSC, NML$GQ_QIOBFDSC, DATDSC); 
: 1014 1004 IF .STATUS THEN 
; 1015 1005 4 BEGIN 
3 1318 1308 4 DATPTR = ge COSCSA_POINTER]; 
; 101 1007 4 LINK CNT = .(.P2DSC COSCSA_POINTER]); 
; 1018 1008 4 WHILE (LINK_CNT = .LINK_CNT = 1) GEQ 0 DO 
Me weg ww 
$ 19 1 iO) If different node, and not first time build message and send it. 
; 10 1918 2 IF .LAST_PNA NEQ ..DATPTR THEN 
; 1024 1014 6 REGIN 
; 1982 ISI? § IF .LAD_LEN NEQ 0 THEN 
3: 1027 1919 7 NMLSAB_MSGBLOCK CMSBSL_FLAGS] = MSBSM_ENTD_FLD OR 
: 1028 1018 7 MSBSM_DATA_FLD; 
: 1029 1019 7 NMLSAB_MSGBLOCK CMSB$B_CODE] = NMASC_STS_SUC; 
; 1020 1020 7 NMLS$AB_MSGBLO MSBSA_ENTITY] = STRBSC; 
; 1031 1021 7 LAD_DATA_DSC agi LENGTH] = AD_ : 
3 1038 10e¢ 7 LSAB_MSGBLOCK CMSBSA_DA LAD-DATA_DSC; 
3 103 1023 7 NMLSBLB_REPLY (NMLSAB_ASGBLOCK, MSGSIZED; 
5 Ie 10S¢ 4 NMLSSEND (NMLSAB_SNOBOFFER, .MSGSIZE); 
: 1036 1026 7 ! Set up to build NICE message for next node in NETACPs 
3 1037 1027 7 ! Logical Link database. 
; 1038 1028 7 ! 
3; 1039 1029 7 LAD_LEN = 0; 
: 1040 1030 7 MSGSIZE = 0; 
3 1041 1031 6 END; 
$ ines 1936 6 ! 
3 104 1033 6 ' Build string descriptor for node in STRDSC, and build 
3 1044 1034 6 ! the node ID for the NICE response message. This node ID 
3: 1045 1035 6 ! is in the standard Network Management format of node 
3; 1046 1036 6 ! address, node name length, node name. 
3 1047 1037 6 ! 
3 10468 1038 6 LAST_PNA = ..DATPTR; 
3; 1049 1039 6 NMLSGETIDSTRING (NMLSC_NODE, DATPTR, STRDSC); 
: 1050 1040 6 END 
3; 1051 1041 5 ELSE 
3 1036 1966 5 ! 
; 1927 os 2 Skip over node address and name here. 
: 1922 1362 DATPTR = .DATPTR + 6 + .(.DATPTR+4)<0,16>; 
3 1920 1947 : Format Link # and PID into a buffer in NICE format. 
3; 1059 1049 ; NMLSSHOWPARLIST (LAD_BUF_DSC, 
: 1060 1050 P 
: 1061 1051 § NMLS$Q_LNKV2SHO_TABDSC, 
; 1996 1036 : DATDSC 
: 106 105 DATPTRS; 
3: 1064 1054 4 END; 
3; 1065 1922 END; 
f 1989 § END: 
: 1068 1058 ! Build the Last NICE response message. If there was an error, but there is 


ou ave volatile Links param 1$-tep 
node id to add, do so. 


1 99:83:33 HAMC SRBbWaEvocome S350 


oo status was end-of-file 
data ee was successfully reached, 


STS_CMP) then the en 
so add whatever Links are left in the’ 


-LAD_LEN GTR 0 THEN 


“Bee =MSGBLOCK CMSBSL_FLAGS] = .NMLSAB_MSGBLOCK CMSBSL_FLAGS] OR 


MSBSM_E D; 
NMLS$AB_MSGBLOCK CASBSA~ entity : STRDSC: 
IF +$TATUS EQL NMLS$_STS_CMP T 


PAAAAAAAOW 


= MSBSM fgg ‘ty OR MSBSM_DATA_FLD; 


OOOOCCOCCOCCOCO: 


NACSA 
NALSAB> MSGBLO ‘ 


Nh tr ee EP 
VMiFWN OO DONOUSWN—O” 


bscSi DLL te 
neetan "DATA. = “TAD “DATA “pst; 


| By Bg pieces of the NICE response message together and send it 


oooooo°oo 
SELES 


3 


WML BLD sts RLSAB SNOB Freee’ MSGSIZE); 


SS 


Wn 


kk dd dd 
kk kk kk kk tt 
OOOCOCCCCOCCOCCOCOOCOOOOOOOoOOOoO 
WR OOONAUESWN “OO OODNOUS WOO 


0090909 INI NNN NNINSIO 
=—PONPNNUNININWE SEES 
m oe 
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° 
o 
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NML_V2_SHOW_LINKS 


: 
0 
| 


ne at a a ss ke ts 8 
SASRSASSERS TMH 


-PSECT $PLITS,NOWRT,NOEXE,2 
.WORD PST$K_PCLK_LAD 
-ADDRESS NMLSSHOLINKS 

“BLKB. 2 

“LONG 1 

ADDRESS P.AAM 

“ADDRESS U.5 

.PSECT $OWNS,NOEXE,2 
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NMLSV2COMP Process NICE V2.0 request 16-Sep-1984 00:39:41 AX-11 Bliss-32 V4.0-742 P 
rat NML_V2_SHOW_LINKS Show v3 volatile Links param 12280871382 99:35:33 ENML SRC NMLV2COMP.B32; 1 age 43 
NML$Q_LNKV2SHO_TABDSC= 
P.AAL 


U.6= P.AAN 
.EXTRN PSTSK_PCLK_LAD 


.PSECT SCODES,NOWRT,2 
O7FC 00000 NML_V2_ SHOW LINKS: 


ORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10 : 0889 
5A 000000006 0 9€ 0000 MOVAB NMLSSEND, R10 : 
59 000000006 9E 0000 MOVAB L$AB_SNOBUFFER, R9 : 
8 0 9000 G 9E 0010 MOVAB NMLS$BLD_REPLY, : : 
00000" gE 1 MOVAB NML$Q_P2BFDSC : 
6 000000006 00 9€ 0018 MOVAB NMLSAB_MSGBLOCK, R6 : | 
SE FDCC CE 9E 000 MOVAB  -564(SP), : 
7E OC AC 7D OOO2A OVQ  QUAL_LEN, =-(SP) + 0986 | 
08 AC DD 0000E PUSHL QUA > 0985. 
F8 AD OF 00031 PUSHAB P2D ; 0981 | 
57 DD 00034 PUSHL R : 
00c8 C7 0D 00036 PUSHL NML_Q_V2_SHOLNK+4 : 0982 | 
7E D4 0003A CLRL. = =(SB > 0981 | 
7E 01 CE 0003C MNEGL #1, =(SP) : 
04 AC DD 0003F PUSHL ENTITY : 
000000006 00 09 FB 00042 CALLS #9, NMLSBLDSHOWBUFS : 
14. AE 0200 8F B80 00049 MOVW #512, LAD_BUF_DSC : 0991 | 
18 AE 1C AE 9E 0004F MOVAB LAD_BUF, CAD_BUF _psc+4 : 0992. 
10 AE 1€ AE 9E 00054 MOVAB LAD-BUF, LADTDATA_DSC+4 : 0993 | 
55 01 CE 00059 MNEGL #1, LAST_PNA > 0994 | 
53 01 p00 0005C MOVL #1, STATOS : 0995 | 
04 AE D4 0005F CLRL = LAD_LEN ; 0996 | 
1A 5 £9 0062 1$: BLBC _—« STATUS, 2$ : 1001 | 
E8 AD 9F 0006 PUSHAB DA : 1003 | 
000000006 00 9F 00068 PUSHAB NML$GQ_QIOBFDSC : 
F8 AD OF O06 PUSHAB P2DSC : 
00c4 C7? 9F 00071 PUSHAB NML_Q_V2_SHOLNK : 
000000006 00 04 FB 00075 CALLS #4, NALSGETDATA : 
53 9 dO poere MOVL RO, STATUS : 
77 53 £9 GOO7F 28: BLBC STATUS, 7$ > 1004 | 
6E EC AD DO 00082 MOVL DATDSC+4, DATPTR 1006 | 
54 FC BD 4 0086 MOVL § aP2DSC+4, LINK_CNT : 1007. 
54 D7 OOO8A 3S: DECL = LINK_CNT + 1008 
D4 19 0008C BLSS : 
52 6E 00 O008E MOVL  DATPTR, R2 + 1013. 
62 5 D4 091 CMPL AST_PNA, (R2) : | 
42 094 BEQL 3 
04 ar 03 096 TSTL LAD_LEN : 1015. 
13 00099 BEQL : 
66 0 p6 0098 MOVL #48, NMLSAB_MSGBLOCK > 1017) 
04 Ab 01 009 MOVE 1 $AB_AS + : 1019 | 
14 Ab FO AD 43 OOA MOVAB STRDSC, NMC$AB_MSGBLOCK+20 : 1020 | 
OC AE 04 AE : QA MOVW § LAD_LEN, LAD_DATA > 1021 
18 Ab OC AE 9E OOOAC MOVAB  LAD"DATA_DSC> NMLSAB_MSGBLOCK+24 > 10 4 
08 AE 9F 00081 PUSHAB MSGSIZE > 1023 | 
56 DD 00084 PUSHL : 
3) 02 FB 0086 CALLS #2, NMLSBLD_REPLY : 
08 AE DD 00089 PUSHL mSGSIZE > 1024 
59 DD 000BC PUSHL R : 


1 
| NMLSV2COMP b N ‘ 
‘Voom sf rocess NICE bf ? re 


9:41 YAK=11 Bliss-32 v4.0-74 Page 37 
NAL _V2_SHOW_LINK NAL i 29° 43) 


quest 1e-se =1984 00: 
Show v3 volatile Links param 13-808- 1982 99: 0:22 NML.SRCINMLV2COMP.B32;1 


; Routine Size: 305 bytes, Routine Base: S$CODES + 03F4 


6A 02 FB 008 CALLS #2, NMLSSEND : 

| 0 A rc C CLRQ ~—«LAD_LEN ; 1029 

55 62 DO O00C4 4$: OVL (R23, LAST_PNA : 1038 

FO AD OF 90¢7 PUSHAB STRDSC : 1039 

| 04 AE 9F OOOCA PUSHAB DATPTR : 

03 DD 000CD PUSHL a3 : 
000000006 00 03 FB OOOCF CALLS #3, NMLSGETIDSTRING : 

09 11 0006 BRB 3 1013 
50 Ag 3¢ 0008 5$ MOVZWL 4(R2) RO + 1045 
6E 06 A240 9E 000DC MOVAB 6(R2)CROJ, DATPTR : 

DD OOOE1 6$ PUSHL SP + 1049 
eB A 3 O0E 5 PUSHAB DATDSC : 
OOBC C7? OF 0 OE6 PUSHAB NML$Q_LNKV2SHO_TABDSC : 
10 AE 9F OOOEA PUSHAB LAD_LEN : 
24 AE 9F OOOED PUSHAB LAD_BUF _DSC j 
000000006 00 05 FB 000FO CALLS #5, NMLSSHOWPARLIST : 
| 91 11 OO0F? BRB : 1008 
04 AE DS OOOF9 7$ TSTL LAD_LEN + 1063 
22 15 OOOFC BLEQ &8$ : 
46 10 88 OOOFE BISB2 #16, NMLSAB_MSGBLOCK + 1055 
146 Ab FO AD 9E 00101 MOVAB STRDSC, NMLSAB_MSGBLOCK+20 + 1067 
FFFFEFFO  8F 53 DT 90106 CMPL STATUS. #-16 + 1068 
11 12 0010D BNEQ 8$ : 
bf, 30 DO 0010F MOVL #48, NMLS$AB_MSGBLOCK + 1070 
| 04 Ab 01 90 00112 MOVB #1, NML$AB_ASGBLOCK+4 > 1071 
OC AE 04 AE BO 00116 MOVW LAD_LEN, LAD_DATA_DSC : 1072 
18 AG OC AE 9E 0011B MOVAB LAD-DATA_DSC7 NMLSAB_MSGBLOCK+24 + 1073 
08 AE 9F 00120 8$ PUSHAB MSGSIZE + 1080 
56 DD 00123 PUSHL R6 ; 
68 02 FB 00125 CALLS #2, NMLSBLD_REPLY : 
08 AE DD 00128 PUSHL MSGSIZE : 1082 
59 DD 00128 PUSHL R > 1087 
6A 02 FB 00120 CALLS #2, NMLSSEND : 
04 00130 RET + 1083 


; 1094 1084 1 


| ; | 
| NAL SV2COMP Process NICE V2.0 requests 1b-5e =1984 00:39:41 AX-11 Bliss-32 V4.0-742 Page 38) 
Yous005 NMLSSHOL INKS Get logical Link parameters 1 730071382 99:35:33 NML.SRCINMLV2COMP.B32;1 : ay 
1085 ZSBTTL "NMLSSHOLINKS Get bog ical Link poteesters. 
098 : § GLOBAL ROUTINE NMLSSHOLINKS (SEM_LIST, BUFDSC, MSGSIZE, DATDSC, CATPTR) = 
0 


1088 ++ 


=o 


IMPLICIT INPUTS: 


Coded multiple Link address and process id fields are added to output 
message. 


| 

Mo | 

oe ! FUNCTIONAL DESCRIPTION: | 
8 This routine adds a logical Link id to the NICE response message. | 
g FORMAL PARAMETERS: 
0 SEM_LIST Parameter semantic table entry address, 
0 BUF BSC Output message buffer descriptor address. 
0 MSGSIZE Address of current output message size. 
0 DATDSC Q10 buffer descriptor address. 
0 DATPTR Current pointer into Q10 data buffer. 


ROUTINE VALUE: 
COMPLETION CODES: 


NML$_STS_SIZ if the response message buffer overflows. 
NML$_STS_SUC 


BEGIN 


Pp 
DATDSC _: REF DESCRIPTOR, 
SEM_LIST : REF BLOCK C, BYTE]; 


CAL 
PRM_BUFFER =: BBLOCK (30), 
PRMSIZE, 

STRPTR, | 
| 
| 
| 
| 
| 
} 


Oe ee ee ee el ll lh el ll ee et ne a el el el a ed 
See a aad 


a et et ee et et el el el eel cl eel cel cel cl eel el el ll cl cel cel cll cel el ll elt call elt cel ly cl lt elt ls cass lls carl cells cel ls eal lls alls malls 


POPP IPOPIPPIPEPONIPUPINIPENINIPIPREUININIIINIDII 9 8 at at tt ts ss 
- 
o s 


Ce ee ee ne ee ee ee ee ee ee ee es 


ee ee ee ee ee ee eee 


SPAWN NII INININININININID 2 2 OO | QOD DOCOOOOOCOOOOOOOOOO 


5 STATUS; 
37 ' 
38 ! Now, get the Link address and PID and format them for the 
4 NICE response message. 
41 STRPTR = PRM_BUFFER: 
4@ CHSWCHAR_A (2, STRPTR); ! Move Link address 
4 STRPTR ="CHSMOVE (2, ..DATPTR, .STRPTR); 
re -DATPTR = ..DATPTR + 4; 
46 CHSWCHAR_A (%X°20' OR 4, STRPTR); ! Move process id 
47 STRPTR ="CHSMOVE (4, ..DATPTR, .STRPTR); 
48 -DATPTR = ..DATPTR + 4; 
30 PRMSIZE = .STRPTR - PRM_BUFFER; 
52 STATUS = NMLSADDMSGPRM (.BUFDSC, 


seem re 
Be Se Se Oe Se Ge Be Se Be He Se Se Se Ge Se Se Se Se Ge Ge He Se Ge Be SH TH Be Ge Se Ge Be we BH Se Oe He Se OH Se Oe Oe Be Oe Oe Oe Ot Oe OH Os Oe Oe Se Os os Oe es 


renting 
| > 1 

NMLSV2COMP Process NICE V2.0 re 16-Sep-1984 00:39:41: VAK=11 Bliss-32 v4.0-742 ° 9 
| INK 1exsee- 138s 99:25:33 age 43 


; Routine Size: 67 bytes, Routine Base: S$CODE$ + 0525 


v04 NMLSSHOLINKS Get Lo td Link parameters NML.SRCINMLV2COMP.B32; 1 ) 
; 1153 114 SGSIZE, 
: 1154 1128 simage -PCLK_LAD 
: 1155 1144 NMASM-PTY_CMU OR 2, | 
: 11 ; 1146 BRR SUFFER); | 
S118 1109 | 
: 1159 1148 2 RETURN .STATUS 
> 1160 1149 
: 1161 1150 1 END; ! End of NMLSSHOLINKS : 
0000 00000 -ENTRY ey a Save nothing : 1086 ‘ 
5E 20 Ce 90008 SUBL2 ; : 
51 6E 9E 0000 MOVAB PRM_BUFFER, STRPTR + 1130 
81 02 90 00008 MOVB #2, ~(STRPTR)+ > 1131 
50 14 BC DO 00008 MOVL § @DATPT : 1132 
81 60 BO OOO0F MOVW (RO), (STRPTR)+ : 
14 BC 04 CO 00012 ADDL2 #4, @DA > 1133 : 
81 24 90 00016 MOVB #36, (STRPTR)+ > 1135 : 
50 14 BC D0 00019 MOVL  aDATPTR : 1136 : 
81 60 D0 0001D MOVL. (RO), TUSTRETRD# : : 
14 BC 04 C0 00020 ADDL2 #4, @DATPT > 1137 : 
50 of i 90024 VAR PRH_BUFFER. > 1139 : 
50 51 50 C3 00027 SUBL3 RO, STRPTR, PRMSIZE ; : 
4001 8F 8B 00028 PUSHR #*M<RO,SP> > 1145 : 
7E C2 8F 9A 000¢F MOVZBL #194, -(SP) > 1144 ; 
7E 69 8F 9A 00033 MOVZBL #105, =(SP) : 1141 
7E 08 AC 7D 00037 MOVa BUFDSC, -(SP) ; 
000000006 00 06 FB 0003B CALLS #6, NMLSADDMSGPRM ; 
04 00042 RET : 1150 


— 


a 


| WM SYS CORP fre gg NICE V2.0 requests 18-se -Sep-1984 0 +9934] Ax-11 Oi ree -32 V4.0-742 Page 40 
‘ese CHG_LINE Set V tine parameters 14-Sep-1984 12:50:22 NML.SRCINMLV2COMP.B32;1 (14) | 


BEGIN 
NPARSE TAB = NMLSNPA CLEARV2LINE; 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

t 

4 FUNCTION = NFBSC _FC_CULEAR; 
4 END 
3 ELSE 
4 

4 


163 1 ZSBITL_ "NML$V2_CHG_LINE Set v2 Line parameters’ 

192 ROUTINE NML$V2_CHG_LINE : NOVALUE 

166 '+ 

+ 24 FUNCTIONAL DESCRIPTION: 

169 i This Ay eB is ge when NML receives a SET or CLEAR LINE command 
170 ! from a V2 if transforms the V2 =. r CLEAR LINE command into 

171 ; the sppropr iste V3 Q10. Note that some "Une parameters are 

ite ‘ V3 circuit parameters. Line and F vam Peg parameters may not be 

173 mixed in a single V2 command. 

175 le= 

178 

17 BEGIN 

178 

179 P 

13y NML$GB_ENTITY_FORMAT : BYTE SIGNED; 

iss CAL 
j 18 FUNCTION, 

1° NPARSE_TAB; 

196 Information can be read only from volatile data bases. 

H+ if NOT -NML$GB_OPTIONS CNMASV_OPT_PER] ! If volatile database requested, 

1 

1 

1 

1 

1 

1 

1 

1 

1 


TAB = NMLSNPA SETV2LINE; 
FUNCTION = NFBSC _FC_SET; 


END 
IF NMASNPARSE (NML$AB_NPA_BLK, 
-NPARSE _TAB) 


EN 
~~ * -NMLSGB_ENTITY_FORMAT OF 


NMASC_ENT_KNOJ: 
NMC _V2_ “DISPATCH ‘. tg ae v2" ENTITY, 


OOOO DO OO OW 00 00 09 09 09 09 SI SINISE AAAAAAAAAUIMMIMIMIIII 
NOAUE WDNR @ O- OD NAMES WARIO ODA EWN HO ODNAUE WN SO OONOUS Wr. 


Cc ooooo woowowovovnovnno 
SELESRENLSSSLESEANLS 
ebutatatadadcdabababababababetabababababababababed Dabahuaichabababubabababubabdiabahatshbabubahubabubuabababsaalad 


POPIPONEPOPOPUPININININININNNNNNN 


10 98 Manes TON “O): 

'g 00 {1 TO 16): 

13 1 NML_V2_DISPATCH (. «mest v2 v2 gENTLIY, 

15 08 “HRC SB ENTITY FORMAT, 
1g 04 LSAB_ENTITY_ID, 

43 ioe , NFUNCT CTION ONS 

15 0 NMLSERROR_2 (NMASC_STS_IDE, NMASC_ENT_LIN); 


| 
BEGIN 
IF .NML$GB_OPTIONS CNMASV_OPT_CLE] 
THEN 

| 


: 


present NICE v2.0 requests 
Cc V2 Line parameters 


NMLSV2_CHG_LINE Set 


120 END; 
1208 ; NMLSERROR_1 
1210 END; '” of 


oc 


000000006 


FF 


000000006 


000000006 


(NMASC_STS_FUN, NMASC_ENT_LIN); 
NMC$V2"CHG_LINE 


: 
33 


Vw WwIWO 
No NOU 


WVIWNe 
NOOO 


64 


10 


; Routine Size: 154 bytes, Routine Base: 


003C 00000 NML$V2_CHG_LINE: 
. WORD 


OOOO OWOOPN OMNI N N= OAKAOUMIN MONO OVNMOONCONAOOS 
PR = OVW QOONUM10 F OM FWSM —CGOCMOOWO YS FO LUO "oS 
OMOOMOOINIOOVT OS 0-9 S TO OTF owomnoo070 oc om—oowow 
FSwOmowmowo OS FW | W918 FN" OT "TO OM—OoOm— Oumnmnm 
SOOCCOCOOOO OOOO OOOOSCOSOOOOSOOOOOSOOOCOOOOOOOOoOoOO 
WMO ALMO YS NVN MOP LSMOO VNVTDVWOONLS CO ONUIM OP 


SCODES + 0568 


Pe 
HCSegcBMs Q2:30:8) UCT DABatddot Bs 


NML.SRCIJNMLV2COMP.B32; 


Save R2,R3,R4,R5 
NML$GB_OPTIONS, R5 
NML_V2-DISPATCH, R4 
NMLSL_V2_ENTITY, R3 
NML$SB_OPTIONS 

#6, NMLS$GB_OPTIONS, 1$ 
NMLSNPA CLEARV2LINE, NPARSE_TAB 
#36, FUNCTION 

NMLSNPA SETV2LINE, NPARSE_TAB 
#35, FUNCTION 

NPARSE_ 

NML$AB-NPA_BLK 

#2, NMASNPARSE 


RO, 
NMLSGB,ENTITY_FORMAT, RO 


RO 

4$ 

RO, #16 

4$ 

FUNCTION 
NMLS$AB_ENTITY_ID 
NML_V2_CHG_LINE 


NMLSL_V2_ENTITY 
4, NAL_V2_DISPATCH 


-(SP) 
#2, NMLSERROR_2 


-(SP) 
#2, NMLSERROR_1 


™“ 
o 


ee ad a tt a se 


ehwiictababubetad = 
OM ~C0O~ 
Oo @nownd 


Pete Se Se Ge Se Se Se Ge Ge Ge Ge Ge Se Se Fe Ge Ge Ge Se Se Ge Se Ge Ge Se Be Se Be Se Se Be Fe Se Fe Fe Fe Se Se Se Ge Be 


1 
Process NICE V2.0 requests 1S-se =1984 00:39:41 AX-11 Bliss-32 V4.0-74 P 4 
NMLSCHK_V2_CIRC Check Set V2 Circuit parameter 14-Sep-19 4 99:35:33 NML.SRCINMLV2COMP.B32; 29°55 


ZSBTTL ‘"NMLSCHK_V2_CIRC Check Set V2 Circuit parameter group’ 
GLOBAL ROUTINE NALSCHK_V2_CIRC = 


1+ 


'+4 
! FUNCTIONAL DESCRIPTION: 


This is_an NPARSE action routine that is called when oy a 

SET LINE command from a V2 NCP. These commands could have both 
Line and circuit parameters in the same command. To adhere with 
Network Management architecture, we do not allow a mix in a single 
SET i Check the parameter code to make sure it is a circuit 
parameter. 


IMPLICIT INPUTS: 
NPARSE BLOCK (pointed to by AP) contains the parsed parameter data. 
NPASL_FLDPTR is a pointer to the parameter code in the received 


eee ee ee ee 


message buffer. 
If the parameter is not a circuit parameter, then an invalid parameter 
: grouping error (NMASC_STS_PGP) is signalled. 
BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference. 


4 
If this is not a circuit parameter, return error. 
if .NMLSGL_PRS_FLGS CNMLS$V_PRS_V2_LINEJ 
NMLSERROR_2 (NMASC_STS_PGP, 

. (.NPARSE-BLOCK CNPASL_FLDPTRJ)<0,16>); 
NMLSGL_PRS_FLGS CNML$V_PRS_V2_CIRCUIT] = 1; ! Set grouping flag. 
NMLSL_V2 ENTITY = NMLSC_CIRCUIT; 


RETURR NALS$_STS_SuC 
ND; ! End of NMLSCHK_V2_CIRC 


3; 3 
3; 3 
3 7 
3} 
3 3 
3 3 
3; 7 
3; 3 
3; 7 
; 3 
3; 7 
3 
3; 3 
: 7 
3; 7 
‘> 
3 3 
3 7 
3 7 
‘3 
; 7 
3; 3 
3% 
; 7 
3; 3 
; 
3 7 
33 
: 
3 7 
37 
3 7 
3 3 
; 3 
3 
3 7 


0000 00000 ENTRY NMLSCHK_V2_CIRC, Save nothing 3 i212 
0E 000000006 90 06 gi 90002 NMLSGL"PRS FLGS+1, 1$ ; 1240 

E 14 BC 3C OOO0A MOVZWL a@20(NPARSE~BLOCK), -(SP) > 124 

18 CE 90005 MNEGL #27, =(SP) > 1242 

000000006 00 02 F8 00011 CALLS #2, NMLSERROR_2 ; 

000000006 00 80 8F 88 00018 18: BISB2 #108, NMLSGL_PRS_FLGS+1 > 1244 
00000000* 00 9 DO 00020 MOVL #9, NMLSL_V2-ENTITY 3 1245 
0 1 00 00027 MOVL #1. RO : 1248 

04 OO02A RET : 1247 


aaa a at a at a ot od 9 = 2 2 2 2 = = = 2 ot 2 2 2 ss SS SS 


= POPIPIPINPIF INIA POPINININYAY) — st tt ot tt ot 
m — 


; Routine Size: 43 bytes, Routine Base: S$CODE$ + 0602 


; Routine Size: 42 bytes, Routine Base: S$CODE$ + 062D 


H 1 
NMLSV2COMP Process NICE V2.0 requests 16-Sep-1984 00:39:4 AX-11 Bliss-32 V4.0-74 Page z NM 
va ts NRCSERE. VO LINE Check Set V2 Line parameter gro 12-808 -1 3b 99: 0:2 NML .SRCJNMLV2COMP.B32; . (16) | vO 
: 126 1248 1 %SBTTL ‘NMLSCHK_V2_LINE Check Set V2 Line parameter group’ | 
: 126 1 rk 1 GLOBAL ROUTINE NAL Shin G2_LINE = 7 oe 
3 1264 1 29 1 
: 1265 1251 1 !+4 
: ! ¢ : 26 ! FUNCTIONAL DESCRIPTION: 
: 1268 1254 1! This is_an NPARSE action routine that is called when _—— a | 
> 1269 1255 1! SET LINE command from a V2 NCP. These commands could have both 
: 1270 1256 1! Line and circuit parameters in the same command. To adhere with 
3; 1271 lent Ba Network Management architecture, we do not allow a mix in a single 
: 1 ie; 1258 1! SET command. Check the parameter code to make sure it is a line | 
: 127 1259 1! parameter. 
3: 1274 1260 1! 
3 1st? 1261 1 ! IMPLICIT INPUTS: | 
3: 1276 1606 1! NPARSE BLOCK (pointed to by AP) contains the parsed parensese data. 
3; 1277 1265 1! NPASL_FLDPTR is a pointer to the parameter code in the received 
; iste 1see : message buffer. 
3 1580 1266 1! If the parameter is not a Line parameter, then an invalid parameter 
; 1281 1267 1! grouping error (NMASC_STS_PGP) is signalled. 
3 iste 1268 1 !-- | 
: 128 1269 1 
: 1284 1270 BEGIN 
: 1285 1971 | 
; 1286 1 i SNPA_ARGDEF ; ! Define NPARSE block reference. 
: 1287 137 | 
: 1288 iste ! 
: 1609 14} : If this is not a line parameter, return error. | 
3 1291 1277 2 IF .NMLSGL_PRS_FLGS CNMLS$V_PRS_V2_CIRCUIT] 
; 1538 1278 TH 
: 129 1279 NMLSERROR_2 (NMASC_STS_PGP 
> 129% 1280 _(( NPARSE “BLOCK CNPASL_FLDPTRI)<0,16>); 
3: 1295 1281 NMLSGL_PRS_FLGS CNML$V_PRS_V2_LINEJ = 1; ! Set grouping flag. 
3: 1296 1686 2 NMLSL_V2_ ENTITY = NMLST_LINE; 
3 1297 1283 2 RETURN NALS$_STS_SUC 
: 1298 1284 1 END; ! End of NMLSCHK_V2_LINE 
0000 00000 ENTRY NMLSCHK_V2_LINE, Save nothing : 1249 
000000006 60 #1 BOE ire NMLSGL_PRS-FLGS+1 : 1277 
7E 14 BC 3C OOOOA MOVZWL @ gest LORS -(SP) : 1280 
7E 1B CE OOO0E MNEGL #27, -(SP) 3: 1279 
00000000G 00 2 4} 00011 CALLS #2, NMLSERROR 2 3 
000000006 00 40 8F 88 00018 1$ BISB2 #64, NMLSGL_PRS_FLGS+1 ; 1281 
00000000" 00 04 00020 CLRL = NML$L_VO_ENTITY : 1282 
50 01 DO 00026 MOVL «#1, RO : 1283 
04 00029 RET : 1284 


NMLSV2COMP Process NICE V2.0 requests 1h-se 984 0 AX-11 Bliss-32 V4.0-742 Page 44 NAL 
rae tt NMLSCHK_V2_STA theck Set V2 Line parameter grou 12780-1382 03: 35:3 NML.SRCINMLV2COMP.B32;1 . (17) v0é 
31 1285 1 ZSBTTL 'NMLSCHK ve STA Check Set V2 Line parameter group’ 

3 : : 8 : GLOBAL ROUTINE NAL CHK_V _STA= 

3; 3 1288 1 !+4 

: : Re : 3 : FUNCTIONAL DESCRIPTION: 

| 08 1091 1/ This is_an NPARSE action routine that is called when parsing a 

; 130 1 3g 1/ SET LINE command from a V2 NCP, and a state change is found. 

: 1308 1293 1! Set up the areper fields so the state change is made to both 

3; 1309 1294 1! the Line and the circuit. State is the only V2 parameter for 

: ! 19 } +4 } which this is done. 

: 7 \¢ 1097 1! SPPLICIY INPUTS: 

s 131 1298 1! PARSE BLOCK (pointed to by AP) contains the parsed parameter data. 
3 1314 1299 1 NPASL _FLDPTR is a pointer to the parameter code in the received 

s 3519 1300 1! message buffer. 

3; 1316 1301 1: 

: 1317 1208 i im- 

; 1318 138 1 

3 1319 1304 2 BEGIN 

: 1320 1305 

; 1321 1306 SNPA_ARGDEF ; ! Define NPARSE block reference. 

3 1386 1307 

3s 1352 1308 

; 13S¢ 1309 : 

: 1325 1310 ! Save the new state. 

: 1326 1311 i 

3: 1327 1312 NML$L_STATE = .(.NPARSE_BLOCK pun get _FLDPTRJ)<0,8>; 

3 1328 1313 2 NALSGC PRS FLGS ENML SV _ PRS_V2_STA] ="1; ! Set state change flag. 

3 1362 1314 2 RETURN NMLS_STS_ 

; 1330 1315 1 END; ! End of NMLSCHK_V2_LINE 


0000 00000 -ENTRY NMLSCHK_V2_STA, Save ma STR 
00000000" 00 14 BC 9A 00002 MOVZBL 020 (NPARSE ote) TATE 
000000006 00 01 88 OOO0A BISB2 #1, NMLSGL-PRS_FLGS+ 
50 01 p? Babia MOVL #1, RO 


; Routine Size: 21 bytes, Routine Base: S$CODE$ + 0657 


Sete Se te & 

Seo 
WAG 
_———— 00 
VFWNO 


1 
NMLSV2COMP Process NICE V2.0 requests tbese 1984 00:39:41 AX-11 Bliss-32 V4.0-742 Page 45 NPL 
VOL 080 NML V3 CHG. LINE Set volatile database Line par 1 73007138 99:35:33 ENML.SRe NMLV2COMP.B32; 1 : (18) vOo4 
¢ ZSBTTL_ "NML_V2_CHG_LINE Set volatile database Line aeters 
ROUTINE NML_V2_CHG_LINE (ENT, LEN, ADR, FCN) : NOVALUE = 


144 

' FUNCTIONAL DESCRIPTION: 

! This routine adds and clears parameters in the volatile data 
base for V6 Line entities. Since the line entity was broken 
into the Line and circuit entities for V2, this can require a 
Q10 to either data base. nly the state parameter is updated 
in both data bases. 


! 

| 

| 

1 

i FORMAL PARAMETERS: 
; ENT 

1 

i] 


5 


Entity type code. 


LEN Byte count of entity id string. 
ADR Address of entity id string. 
FCN Function (set or clear) 


NMLSGB_ENTITY_FORMAT : BYTE SIGNED; 


OCAL 
STATE_LGTH, 
MSGSIZE, 
STATUS; 


' 
! If there is a state parameter in the NICE command, add it to the 


WN — OC ODNAVES WN (OD DNAULS WN OOONOU 


RROD AAAMAMAMAAR ERE ee 


parameter List using the fieid ID for the appropriate data base. 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
if .NMLSGL_PRS_FLGS CNML$V_PRS_V2_STAJ 
THEN 


PUSUSVSVSISIN E™ B™ EE ES ES EE AANA. NNN AIPPOPIPININININID 2 


OWONAOUE WN $9 ODNAUES WN (OOD NAUES WN (OOO NOULSWN—"OOOnNO 1 


WWWWAAIAI AINA IANA AIA AANA AAIAAINA WI AINNN WAN 


364 
365 
366 BEGIN 
367 IF .FCN EQL NFBSC_FC_CLEAR THEN 
308 STATE_LGTH = 0 

370 STATE _LGTH = 1; 

4 IF_.ENT EGL NMLSC_LINE 

378 ; NMLSSAVEPARAM ( CPTSGK_PCLI_STA, .STATE_LGTH, NMLSL_STATE) 
$2 23 NMLSSAVEPARAM ( CPTSGK_PCCI_STA, .STATE_LGTH, NMLSL_STATE); 
377 61 2 STATUS = NML_V2_CHG_ENTITY (.ENT, .LEN, .ADR, .FCN); 

$8 $6 IF .STATUS . 

79 6 AND .NMLSGL_PRS_FLGS CNML$V_PRS_V2_STA] 

31 Be Bena 

$ i If there is a state change in the NICE command, it must be made 

38 !' to both the circuit and line data bases. Update the data base 


: not already done here. 


BEGIN 
NMLSGW_PRMDESCNT = 0; ! Only update the state this time. 
IF .ENT EQL NMLSC_LINE 


Be Be Be Oe Se Se Be Be Se Se Ge Se Se Se Ge Fe Se Se Se Ge Ge Ge Be Ge Fe Ge Ge FH Se Ge Ge Ge Ge Se Ge Ge Ge Ge HSH Se Se Ge Se Se See Se Se Se Se Se Se Seeseee 
me et mt ek ek ee a a a ed a td ed od od 8 ts = 4 — 2 
me a a a a a a a a a a at = 8 3 ss 2 4 ss a a 4 9) 4 


SSS SRS 
NO OOnNo 


SEssE 


Bee Se Ge Oe Ge Ge Ge Se Se ee SH Se Se SSeS ee Ge Se Se Ge ae Ge Se Se oe 


a 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SRLEFALANLSSSLESARANWLES 


De ee ek el ee el el al el ek ed al De 


ed ad od ad ed 
UPWN—oO 


kkk kk kk kk a tt 
WAAWWINIAAAAA AAAI AWA 
DOOOOO0 0 OO ODDO WDODOODOO NNN 
OONAVE WN —OODNAYV EWN OOONOUSW 


NICE V2.0 requests 


kK 1 
1e~sen~ 1386 00:33:51 
CHG_LINE Set volatile database Line par 14-Sep-1984 12:50:22 NML.SRC 


CIRCUIT; 


AX=11 Ol seuss V4.0-742 
NMLV2COMP.B32;1 


ENT = NMLSC I 
NNL $SAVEPARAM ( CPT$GK_PCCI_STA, .STATE_LGTH, NMLSL_STATE); 


ELSE 
BEG 


ENT = NML$C_LINE; 
NMLSSAVEPARAM ( CPTSGK_PCLI_STA, .STATE_LGTH, NMLSL_STATE); 


ND; 
STATUS = NML_V2_CHG_ENTITY (.ENT, .LEN, .ADR, .FCN); 


If updating KNOWN Lines, add the entity identification to the 


NICE response message. 


NMI. $AB_MSGBLOCK PMSBSV_ENTD FLD] = 


1: 
MSBS$A~ENTITY] = NML$Q_ENTBFDSC; 


N 

IF .NMLS$GB_ENTITY_FORMAT EQL NMASC_ENT_KNO THEN 
BEGIN 

NML$AB_MSGBLOCK 

END; 

' 


i Build and send the response message. 


NMLS$BLD_REPLY (NMLS$AB_MSGBLOCK, MSGSIZE); 
NML$SEND (NMLS$AB_SNDBOFFER, .MS ; 
END; ' End of NML_V2_CHG_LINE 


O3FC 00000 NML_V2_CHG_LINE: 
. WORD 


59 00000000V 00 9E 00002 MOVAB 
58 000000006 00 9E 00009 MOVAB 
57 000000006 8F DO 00010 MOVL 
56 000000006 8F DO 00017 MOVL 
55 000000006 00 9E OOO1E MOVAB 
54 00000000' 00 9 0002 MOV 
SE 04 C2 0002C SUBL 
1F 000000006 00 €E9 000eF BLBC 
24 10 AC 01 000 CMPL 
o4 12 cn A BNEG 
é D4 0003C CLRL 
6 11 0003E BRB 
52 1 D0 0049 1$: MOVL 
04 AC D3 00043 2$: TSTL 
06 12 0004; BNEG 
14 BB 00048 PUSHR 
56 DD 0004A PUSHL 
04 11 0004C BRB 
14 BB 00 af 38: PUSHR 
57 DD 005 PUSHL 
68 03 FB 2¢ 4$: CALLS 
7E oC AC 70 00055 5$: MOVG 
7E 4 ac 7d 00059 MOVa 


Save R2,R3,R4,R5,R6,R7,RB,RI 
CHG ENT Rd 


L_v2 ENTITY, 
NMLSSAVEPARAM, R8 
#CPTSGK_PCCI_STA, R7 
#CPTSGK-PCLI-STA, R6 
NML$AB_ASGBLOCK, R5 
WALSL STATE. R4 
NMLSGL_PRS_FLGS+#2, 5$ 
FCN, #36 
STATE_LGTH 
#1, STATE_LGTH 
4 
#*M<R2,R4> 
R6 
4$ 
#*M<R2,R4> 
#3, NMLSSAVEPARAM 
ADR, -(SP) 


ENT, -(SP) 


NML 
Page 46 0¢ 


(18) V 


1317 


1348 
1351 


1352 
1354 
1388 
1357 


1359 
1361 


| | 
NAL SV2COMP Process NICE V2.0 requests ibese -1984 39:4 AX-11 Bliss-32 V4.0-74 Page 47 
vets WML V2. CHG. LINE set volatile database Line par 1228681 382 99:35:53 ENML.SRC NMLV2COMP .B32; . (18) 
? 4 F 905 CALLS #4, NML_V2_CHG_ENTITY : 
9 D 060 MOVL RO, STATUS : 
i E9 00063 BLBC «STATUS, 8$ : 1362 
D 900000006 9 E? 00066 BLBC = NMLSGL_PRS_FLGS+#2, 8$ : 13¢ | 
00000006 B4 $p CLRW NM $GW_PRMDESCNT : 1371 
| 046 AC D TSTL ENT ; 1372 
OA 1 16 BNEQ 6$ ; 
046 AC 09 00 0007 MOVL #9, ENT : 1375 
14 BB 0007C PUSHR #*M<R2,R4> 3; 1376 
57 DD 7 PUSHL R7 : 
| 07 11 0008 BRB : 
04 A D4 6$ CLRL ENT 3 1380 
1 8B PUSHR #*M<R2,R4> : 1381 
38 DD 00 PUSHL R r 
68 03 FB 00089 7$: CALLS #3, NMLSSAVEPARAM : 
7E 0c ac 7D 0008¢ MOVO ADR, =(SP) : 1383 
7E 04 aC 7D 00090 MOVQ ENT, -(SP) : 
69 04 FB 60094 CALLS #4, NML_V2_CHG_ENTITY : 
53 50 D0 00097 MOVL RO, STATUS 3 
FF 8F 000000006 00 91 OOD09A 8$: CMPB NML$GB_ENTITY_FORMAT, #1 : 1385 
09 is 000A2 BNEQ ; 
65 10 88 O00A4 BISB2 #16, NML$AB_MSGBLOCK 3 1391 
14 AS 0110 C& 9E 000A7 MOVAB NML$Q_ENTBFDOSC, NMLSAB_MSGBLOCK+20 3 1392 
4020 8F 8B OOOAD 9$: PUSHR #*M<R5,SP> 3 1397 
000000006 00 02 FB 000B1 CALLS #2, NMLSBLD_REPLY F 
6E DD 00088 PUSHL MSGSIZE 3 1398 
000000006 00 9F OOOBA PUSHAB NML$AB_SNDBUFFER : 
000000006 00 02 FB 000C0 CALLS #2, NMCSSEND 3 
04 000C7 RET ; 1399 


; Routine Size: 200 bytes, Routine Base: S$CODE$ + 066C 


sss ilps tein ieee sensei eereeeieecaeseeennaamiiemmmmiamnnatitianie : aeicanmcamiione 


[SSeS 


M 1 
| NMLSV2COMP Process NICE V2 +0 req 16-Sep-1984 00:39:41 AX-11 Bliss-32 V4.0-742 Page 48 
va 5 NML ae CHG_ENTITY Set solertle database Line p 14- 300-1 bbe 99:35:33 NAL SREINAEVSCOMP: B3504 . (19) 
1417 140 ZSBITL "NML_V2_CHG_ENTITY Set volatile database Line parameters’ 
238 {3 ROUTINE NML_V2_CHG_ENTITY (ENT, LEN, ADR, FCN) = 
420 40 ‘+ 
? 1 re ! FUNCTIONAL DESCRIPTION: 
4 s 40 i This routine adds or clears the specified V2 parameters in 
: : rt the volatile data base entry for the specified component. 
4 6 40 ! FORMAL PARAMETERS: 
428 41 : ENT Entity type code. 
429 41 : LEN Byte count of entity id string. 
430 41 : ADR Address of entity id string. 
431 41 ! FCN Function (set or clear) 
rR 41 : 
3 1 ' ROUTINE VALUE: 
: COMPLETION CODES: 
i The translated status of the SET Q10 is returned. 
: BEGIN 
: LOCAL 
§ ! Database ID 
SRCHKEY1, i Search key one ID 
SRCHKEY2, ! search key two ID 
FBDSC : DESCRIPTOR, ' NFB buffer descriptor 
20SC DESCRIPTOR, ! Q10 P2 buffer descriptor 
QBFDSC : DESCRIPTOR, ! Q10 P4 buffer descriptor 


TATUS = NML$_STS_SUC; 
Get entity information. 


B NMLSAB ENTITYDATA C.ENT, ELT$B DATABASE]; ! Database ID 
RCHKEY1 = .NMLSAB_ENTITYDATA C.ENT, EITSC_SRCH_ID14:; ! Search key one ID 
RCHKEY2 = .NMLSAB~ ENTITYDATA “ENT, EITSL~ SRCH” 102: ' Search key two ID 


i Build the NFB and P2 buffers for the Q10 to NETACP. 


NMLSBLDSETOBF ¢ “FON DB 
SRCHKEYI, -LEN ADR, 

HREY2 

NML$Q_NF teerst, NFBDSC, 

NML$Q"P2BFDSC, P2DSC 

NML$GO_QIOBFDSC, Bar ésC): 


i Add the parameters to volatile data base entry. 


STAT US = aon Soe VOLS (NFBDSC, P2DSC, 0, QBFDSC); 
"BEGIN THEN 


Ne $8 -MSCBLOCK (CMSB$L_FLAGS] = 0; 
NMLSAB"MSGBLOCK CMSB$B"CODE] = “NMASC ~STS_SUC; 
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Routine Size: 


N 1 
Process NICE V2.0 request 16-Sep-1984 39:4 AX-11 Bliss-32 V4.0-742 
NML_V2_CHG_ENTITY Set volatile database Line p 14-Sep- O71 382 99:35:33 NML.SRC NALVECOMP: B32;1 
1457 END; 
1458 2 RETURN .STATUS 
1459 7 END; ! End of NML_V2_CHG_ENTITY 
001C 00000 NML_Vv2 CHG ENTITY: 
ave 
54 000000006 09 9€ 00002 HOVAB NL SAB ne eS OATACS, R4 
18 ¢ 0009 SUBL sl 
01 D0 0000C¢ "STATUS 
50 06 AC 2C C5 0000F MULL3 ah R 
52 6440 9A 00014 MOVZBL NML SAB. ENTITYDATA+5(ROJ, DB 
01 A440 OF 00018 PUSHAB NMLSAB- ENTITYDATA+ ROJ 
51 i DO 0001C MOVL a(SP)+7 SRCHKEY1 
05 A440 9F OOOTF PUSHAB NMLSAB. ENTITYDATA+10CROJ 
50 9E 00 90025 MOVL  a@(SP)+> SRCHKEY2 
5E DD 00026 PUSHL SP 
000000006 00 9F 00028 PUSHAB NML$GQ_QIOBFDSC 
10 AE 9F O00¢E PUSHAB P2DS 
00000008" 00 9F 00031 PUSHAB NML3Q0_P2BFDSC 
20 AE 9F 00037 PUSHAB NF 
00000000" 00 9F OO03A PUSHAB NML$Q_NFBBFDSC 
7E 04 00040 CLRL = = (SP) 
7E 01 CE 00042 MNEGL #1, (SP) 
50 DD 00045 PUSHL SRCHKEY2 
7E 08 AC 7D 00047 OVO LEN, -(SP) 
51 DD 00048 PUSHL SRCHKEY1 
52 DD 00040 PUSHL DB 
10 AC DD OO04F PUSHL FCN 
000000006 00 OE FB 00052 CALLS #14, NMLSBLDSETOBF 
5E DD 00059 PUSHL SP 
7E 04 00058 CLRL. (SP 
10 AE 9F 0005D PUSHAB P2DSC 
1C AE 9F 00060 PUSHAB NFBDSC 
000000006 00 04 FB 00063 CALLS #4, NMLS$NETQIO 
53 50 DO 0006A MOVL RO. STATUS 
0D 53 £9 0006D RLBC = STATUS, 1$ 
000000006 00 04 90070 CLRL NML SAB * MSGBLOCK 
000000006 00 01 90 00076 SOVB NMCSAB _MSGBLOCK+4 
50 53 DO 0007D 1$: MOVL statue. 
04 00080 RET 


129 bytes, Routine Base: S$CODES + 0734 
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$Vv2COMP Process NICE V2.0 requests 18-5 =1984 00:39:4 AX-11 Bliss-32 V4.0-74 P 50 | 
va ts NML V2. CHG. KNOWN Set volatile entity parameter 1 =3007 138% 99:38:3 NAL SREINMEVECOMP:B3e04 29° (20) 


47 ZSBTTL_ "NML_V2_CHG_KNOWN Set volatile OP parameters’ | 

ry ROUTINE NML_V2_CHG_KNOWN (ENT, FCN) : NOVALUE = 
| 

481 1+ 

ret FUNCTIONAL DESCRIPTION: 

484 : This routine sets or clears the specified parameters for each 

ret of the components of the given entity type. 

487 ! INPUTS: 

488 : 

489 : ENT Entity type code. 

re FCN Function (set or clear). 

136 foo 

49 

494 BEGIN 

495 

496 LOCAL 

497 BUFEND, 

49& ENTADD, 

499 ENTLEN, 

500 LISDSC  : DESCRIPTOR, 

501 ENTIDPTR, 

206 PTR 

50 STATUS, 

504 STRTFLG; 

505 ‘ 

a3 Process every entry in the data base. 

50 

50 


WHILE NMLSGET_ENTITY_IDS (.ENT, NMASC_ENT_KNO, 0, .STRTFLG, LISDSC) DO 


STRTFLG = TRUE; 


BUFEND = .LISDSC CDSCSA_POINTER] + .LISDSC CDSC$W_LENGTHI; 
PTR = .LISDSC CDSC$A_POINTER]; 


WHILE .PTR LSSA .BUFEND DO 
BEGIN 
ENTIDPTR = NMLST_ENTBUFFER; 
NML$Q_ENTBFDSC CDSC$W_LENGTH] = NMLSK_ENTBUFLEN; 
Get entity id for SET Q10 and id string for response message. 


ENTLEN = .(.PTR)<0,16>; 
PTR = .PTR + 2; 


ENTADD = .PTR; 
CHSWCHAR_A (.ENTLEN, ENTIDPTR); 
ENTIDPTR™= CHSMOVE (.ENTLEN, 
.ENTADD 

“ENTIDPTR); 
PTR = .PTR + .ENTLEN; 


NML$Q_ENTBFDSC CDSC$W_LENGTH) = .ENTIDPTR - NMLST_ENTBUFFER; 


STRIFLG = FALSE; 
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; Routine Size: 


3 1542 


Proc 
NAL 


Va. 


40 


NICE V2.0 requests 
CHG _KNOWN Set volatile entity parameter 1 


63 


105 bytes, 


1524 


1 


16-5¢ -Sep-1984 Z 93: 9:41 AX-11 Oh isee 2 V4.0-7 
~Sep-1984 0:22 NML.SRCINMLV2COMP. B32; 


! 
Add the parameters to volatile data base entry. 


NML _V2_CHG_LINE ( .ENT, .ENTLEN, .ENTADD, .FCN); 


END; 
! End of NML_V2_CHG_KNOWN 
OFFC 00000 NML_V2_CHG KNOWN: 
-WORD Save R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 
5B 00000000' 00 9€ 0000 HOVAB NML$T_ENTBUFFER, R11 
5 08 C2 0000 SUBL #8 sP 
58 04 0000C CLRL. = STRTF 
4100 8F 6B 9000¢ 1$: PUSHR SMeRB SP> 
7E 04 00012 CLRL -(SP) 
7E 01 CE 00014 MNEGL #1, =(SP) 
04 AC DD 00017 PUSHL ENT 
000000006 00 05 FB OOOIA CALLS #5, NMLS$GET_ENTITY_IDS 
44 50 €9 00021 BLBC RO, 3$ 
58 01 b0 00024 MOVL #1, STRTFLG 
SA 6E 3C 00027 MOVZ2WL LISDSC, BUFEND 
SA 04 AE CO 0002A ADDL2  LISDSC+4, 3UFEND 
56 04 AE DO 000¢E MOVL LISDSC+4, PT 
5A 56 D1 00032 28: CMPL PTR, BUFEND 
D7 1E 00035 BGEQU 1$ 
53 6B 9E 00037 OVAB NML $T ENTBUFFER. ENTIDPTR 
40 AB 40 8F 9B 0003A MOVZBW #64, RML$Q BFDSC 
57 86 3C 0003F MOVZWL (PTR)+, aNTEE 
59 56 D0 00042 OVL PTR, 
83 57 90 00045 MOVB. ENTLEN, (ENTIDPTR 
69 57 28 00048 MOVC3 ENTLEN, (ENTADD),  TENTIDPTR) 
56 57 ¢O 0004C ADDL2 ENTLEN, 
50 68 4 0004F MOVAB NMLST ENTBUFFER, RO 
53 50 A3 00052 SUBW3 RO. ENTIDPTR, NML$Q_ENTBFDSC 
08 AC DD 00057 PUSHL 
0280 8F BB 9005 PUSHR W-McRT, R9> 
64 AC DD 0005E PUSHL 
FES! CF 04 FB 00061 CALLS ee NML_V2_CHG_LINE 
CA 11 00066 BRB 2$ 
04 00068 3$ RET 


Routine Base: $CODE$ + 0785 
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3: Size: 2078 code + 632 data bytes 
; Run Time Bo: - ? 

; Elapsed Tine: 

3; Lines/CPU Min: 8 - 
3 Neng ok ge | 1589 
3; Memor A Bt 174 pages 
3; Compi skies Complete 


AX-11 Bliss-32 V4.0- 


74 P 
NHL. SREINMEVZCOMP: B30 4 o0¢ 2 


| 
: 1546 5 1 END ! End of module | 
; 1208 135 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes | 
: SOWNS 420 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
> $PLITS Al NOVEC,NOWRT, RD ,NOEXE.NOSHR, LCL, REL. CON.NOPIC.ALIGN(0) 
: $CODES 2078 NOVEC,NOWRT, RD. EXE,NOSHR, LCL. REL. CON.NOPIC.ALIGN(O) | 
a Ae oe NOVEC.NOWRT.NORD .NOEXE.NOSHR, LCL. ABS. CON,NOPIC.ALIGN(O) 
; Library Statistics | 
eee Taree eee nt ms Symbols ------- Pages Processing 
3 File Total Loaded Percent Mapped ime 
: _$255$DUA28:CNML. wrstorter ames 341 56 16 27 00:00.1 | 
; 7$255$DUA28: (SHRLIBINMALIBR ei 887 31 3 47 06:00.2 | 
; 7$255$DUA28:CSYSLIBISTARLET.L32 9776 2 0 581 00:02.2 
; 7$255$DUA28:CSHRLIBINET.L 32:1 1279 27 2 63 00:01.0 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NMLV2COMP/OBJ=OBJ$:NMLV2COMP MSRC$:NMLV2COMP/UPDATE=(ENH$:NMLV2COMP) 
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